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DAInamic verschijnt tweemaandelijks. 
abonnementsprijs is inbegrepen in de 
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Vormgeving Ludo Van Mechelen. 
U wordt lid door storting van de 
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belanorijke ASCII-uaarden in DAIpc 





functie/symbool | HEX DEC 
back-space 8 B 
TAB 8 9 
linefeed A 10 
clear screen C 12 
CURSOR UP 10. 16 
CURSOR DOWN 11 17 
CURSOR LEFT 12 18 
CURSOR RIGHT 13 19 
space-bar 20 32 
30 48 
A 41 65 
a 61 97 
pijltje rechts 89 137 
pijltje links 88 136 
pijltje boven DE 94 
pijltje onder BC 140 
volle blok FF 255 
verticale lijn A 10 
horizontale lijn B 11 
6 hor.lijnen 1D 29 


ASCII - НЕХ - ASCII CONVERSION TABLE 


MSD 0 1 2 5 5 7 
000 | 001 | 010 | 011 101 111 
0000 | NUL 0 e P Р 
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0 DLE | SP 

1 0001 | soa | рот : 1 А а а 
2 ѕтх | m2 | " 2 B R r 
3 EX | 063 | # 3 с 5 8 
4 вот | DC4 8 4 D T t 
5. ENG | NAK % 5 Е U u 
6 ACK | SN | & 6 F v f 

1 BEL | ETB | + 1 G w « 

8 BS CAN ( 8 H x h 

9 НТ | EM ) 9 I Y i 

À Lr | sup] * : J z 3 

B ут | ес | + K [ k 

с FF | FS $ LIN 1 | 
D cr | GS M ] m y 
E 50 | RS з N $ a = 
F SI vs 0 - о DEL 











Westmeerbeek aei 82 
Beste leden, 


Door de vele extra clubactiviteiten van de laatste saanden waren we achter op 
ons publ car sm dit dubbelnuamer doen we een inhaalaaneuver , zodat we 
voortaan ons blad weer op tijd kunnen versturen.We hopen dat kwaliteit en volume 
van nusser 10 het wachten ruimschoots compenseren. 


Hierbij geven we een overzicht van de nieuwe publicaties en producties voor de 
komende maanden : 


Y hardware schema's DAIpc | nu verkrijgbaar 
t tape 80-81 (57 ргодгаваа "5 van de vorige jaargangen) :пџ verkrijgbaar 
Y de 23 prograasa's uit dit nuamer op tape ınu verkrijgbaar 
1) "the best of DAlnasic " in boekvora : augustus 82 
V “DAI firaware " door J.Boerrigter : december 82 


"softwarepiraat slaat toe via de ether...":dit zou een leuke krantentitel kunnen 
zijn.Op originele manier hadden we de laatste weken last van piraterij :- Ln 
onze со а авина staan op een 9008 van de zendaast van de plaatselijke vrije 
radio "TELSTAR". Deze jongens zenden er erg enthousiast ор 105 en Ковеп aet hun 
pros anaa 5 ongevraagd op de aanloopstrook van onze software-bandjes... | 
ТҮЙЕНІ Кал het cosputersignaal de populaire plaatjes en praatjes volledig 
onderdrukken. 


One oan gaat anderaaal naar alle sedewerkers en auteurs die deze uitgave gogelijk 
saakten, | 


We willen iets gaan doen aan het taalprobleea binnen onze vereniging:aensen die 
artikels en prograaaa’s zouden kunnen vertalen naar het engels,duits of frans 
worden verzocht contact te meaen aet onze vertaal-coordinator: 


Filip Peeters 
Vlinderstraat 7 
2440 GEEL Belgie tel 014/583018 


Uw al compenseren we graag aet gratis software,papier en telefoonkosten worden 
vergoed. 


Onze bijeenkoast op 10 april was andermaal een succes,vooral de lezingen vielen 
erg in de saaak.Ergens in oktober gaan we een volgende bijeenkosst plannen, 

we zullen de voordrachten nog beter voorbereiden en aankondigen zodat U deze dag 
optimaal zal kunnen benutten, 


Bij de samenstelling van dit nusaer hebben we getracht de beginners niet te 
vergeten:we veraoeden dat de demo-prograaaa's van Frank het handboek aooi 
aanvullen, Volgende keer gaan we de EDÍT-buffer bestuderen en leggen we de loupe 
op de BASIC-token structuur. 


we hopen dat nuaaer 10 uw creativiteit stiauleert,uw bijdragen zjin steeds welkoa.. 





News. zen RO Bee eh} | ER bee 


“-------.........-...........-.--..-.-.............................2.................. 


dear aeabers, 


Because we were running out of tiae,we offer you this "double issue",we hope 
that the many prograass and articles can coapensate for the waiting. 


This is the tiae-schedule of our new publications and productions: 
і hardware schematics DAIpc :now available 
1 tape 80-81 (57 programas) now available 
t the 25 programes of this issue:now available 
t "the best of DAInaaic" (book) august 82 
1 "DAI firmware "Бу J.Boerrigter:deceaber 82 


We are looking for co-editors/translators : if you can assist in translating 
articles to english,french or german,please contact our language-coordinator: 


Filip Peeters 
Vlinderstraat 7 
2440 GEEL Belgius tel 014/583018 


We will compensate ү efforts with free software,we will pay your mailing 
and telephonecosts for this job. 


Qur next seeting will be in october ‚Rore information in future issues. 
we hope you will enjoy this king size issue,we appreciate all contributins... 


Wilfried Hermans 
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XRUN 
kee *k * INZENDEN VAN PROGRAMMA'S жжжжж 


Veel dainamicers weten niet, 15 mij gebleken, dat programma’s opgestuurd 
kunnen worden. De programma’s worden dan beoordeelt en U krijgt behalve 

dit commentaar сок nog eens een aantal programma’s uit de bibliotheek. 

Dit laatste geldt alleen als de programma's een ruil rechtvaardigen en 

de opgezonden programma’s -indien zij daarvoor in aanmerking komen- opgenomen 
mogen worden in de bibliotheek van Dainamic. 

De eisen die wij aan programma’s stellen om voor ruil іп aanmerking te komen 
zijn echter niet hoog; ook de beginner moet de kans hebben zijn programma’s 
in te kunnen sturen. U kunt trouwens zelf uw voorkeur voor bepaalde collecties 
opgeven zodat wij U zo goed mogelijk kunnen helpen. 

Mensen die vaak insturen zullen begrip hebben dat zij soms niets krijgen en 
een volgend keer veel meer dan gerechtvaardigd door de inzending van dat 
moment. Een tweede beloning (blijk van waardering) krijgt U als uw pro- 
gramma opgenomen wordt in een van de collecties - U ontvangt deze collectie 
dan geheel gratis en automatisch (klaag dus als wij het vergeten). 


Nu over het inzenden zelf. 

Liefst ontvangen wij uw programma’s op DCR-cassette omdat wij dan nooit 
laadproblemen hebben. Iets minder lief maar nog steeds gewaardeerd op disk 
of op gewone cassette. De hogere kosten van minicassette/diskette behoe- 
ven geen bezwaar te zijn bij insturen daar U terugkrijgt wat U instuurt. 
Vooral bij gewone cassettes zijn er nog regelmatig laadproblemen, de snel- 
heid waarmee U antwoord krijgt kan hier vaak mee samenhangen. 

U kunt deze problemen enigzins verlichten door uw band te beginnen met een 
twintigtal tests waar wij dan op kunnen afregelen. U doet dit als volgt: 
NEWreturn 

DIM GiOoireturn 

FOR Ізі ТО 20:SAVEA A "TEST":NEXTreturn 

en vanzelfsprekend de recorder op opname. Vervolgens kunt U ons erg helpen 
met een begeleidend schrijven waarin vermeld staat wat wij op de band kun- 
nen verwachten het spaart ons het afspelen van een band waar niets meer op 
staat. Doe dit begeleidend schrijven inderdaad letterlijk op papier, als 
wij laadproblemen hebben kunnen wij aanwijzingen op band natuurlijk ook niet 
lezen. En dan het meest belangrijke : de programma's zelf. 


Ik zou bijna elke inzender de raad willen geven om eerst iemand die niets 
van computers weet eens met het programma te laten werken/spelen. 

Ik heb tientallen programma's die na een RUN mij lange tijd lieten wachten 
en dan bij controle in een eeuwige loop bleken te zitten. Soms іп af- 
wachting van een bepaalde code, die mij echter op dat moment nog onbekend 
was.Soms bleken overigens correcte programma’s lange tijd bezig met het in- 
lezen van data. Als daar echter niet voor wordt gewaarschuwd — bij voorkeur 
met een aankondiging en een aflopend tellertje om aan te geven hoever het 
staat ~ irriteert zo’n programma nog voor aanvang al mateloos. 

Ook bezit ik vele programma’s die na RUN mededelingen geven als QUT OF MEMORY, 
COLOUR NOT AVAILABLE,NUMBER OUT OF RANGE,OUT OF STRING SPACE, UNDEFINED 
ARRAY, OUT OF DATA en bijna alle andere mogeli jke foutmeldingen waar iets 
verder in het programma de OFF SCREEN topscoorder is. 

Controleert U uw programa aub goed — iemand anders kan dit vaak beter - 
voordat U het inzendt. Een programma met een geconstateerde fout zal niet 
opgenomen worden in een collectie en minder gewaardeerd worden. 

U kunt vele fouten vermijden door meer structuur in het programma te bren- 
gen, te denken aan het feit dat niet iedereen een zelfde beeld heeft dus 
dat de door U gekozen kleurencombinatie bij een ander vrijwel onleesbaar 
is. Bij mij is 4/5 of 4/8 of 4/12 onbruikbaar maar 6/7 of 7/8 heel dui- 
delijk. Er zijn vanzelfsprekend nog vele aspecten onbesproken gebleven 

maar ik wilde dit artikel besluiten met de oproep om toch ook eens in te 
zenden. Bedenk dat wij allemaal eens als beginneling begonnen zijn en dat 
niemand ineens perfecte programma’s maakte. Vooral beginners hebben vaak 
nog een originaliteit waar vele oud-gedienden niet aan kunnen tippen. 


14 Frank H. Drui jff 
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diDAlsoft 


De DAI pe doet zijn intrede in het onderwijs, DAInamic start daarom met een 


didactische Softwaregroep diDAIsoft, 


Doelstelling :-didactische software ontwikkelen voor alle vakken uit het 
secundair onderwijs 
=kant en klare handleidingen bij deze programma's samenstellen 


-een vaste onderwijsrubriek in de nieuwsbrief verzorgen 


Werkwijze : op tweemaandelijkse bijeenkomsten worden concrete afspraken ge- 
maakt in verband met de programma's die gedurende de volgende twee maanden zul- 
len ontwikkeld worden; individuele engagementen voor één van de voorgestelde 
projecten; op een volgende bijeenkomst worden dan de ontwikkelingen bekeken, 
besproken en (eventueel) aangepast; op deze wijze komen per periode een aantal 
zinvolle programma's tot stand, waarvoor de ganse softwaregroep garant staat; 
publicatie van de software onder het label diDAIsoft, 


Wat bieden wij: -toegang tot de reeds beschikbare bibliotheekroutines; 


-reisonkostenvergoeding en lunch op de dagen van de bijeenkomsten; 


Plaats van de bijeenkomsten: Bruno Van Rompaey 
Bovenbosstraat 4 
3044 HAASRODE 
016 - 461085 
DATUM VAN DE EERSTE BIJEENKOMST: 


dinsdag 6 juli 1982 vanaf 10u tot 16u 


Om schikkingen te treffen voor de lunch graag vooraf telefonisch of schrif- 
telijk verwittigen voor 1 juli: contactadres Bruno Van Rompaey. 

Geinteresseerde medewerkers die op deze "stichtingsvergadering" niet aanwezig 
kunnen zijn, toeh maar contact op nemen, We melden hen dan persoonlijk de datum 
van de volgende werksessie, 


Met uw hulp wordt diDAIsoft een garantie voor kwaliteitssoftware. 


Bruno 
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- DCE-microline 


Е? E | вета и geet oct ee os ЛЕ Se шшш ESE SE == === 

58 кн Ж CONNECTIONS 

£9 жжж жо D, C. E. BUS -------- OKI microtine 20 

та ЖЖ лишити 

71 жжж Part Bit Pin ———— E Func.-Pin 

72 жк ж DND 4 ———— ву 26 

73 Hot PO bit B 16 -----------< data bi 2 

та жжж РО 1 14 ------------ bz z 

75 жек PO % 12 ------------ b й. 

7E жжж PQ З 1й------------ bá 5 

77 жжж P 4 Я —————— bS 6 

78 жжж РО S 11 ------------ bE 7 

73 жжж PU & 1х ------------ b7 g 

ga жжж РО 7 i5 ------------ Ба 9 

82 жжж P 7 17 ---- « Busy 11 

ax жжж РО i #7 ----) бъгове і 

84 жжж PI Е 18 ---- « Acknowledge 10 ¿(not used) 
85 жжж P S 19 ---- 5 Paper out/ low iz (not used) 
56 жжж Ра а 28 ———— < reserve (not used) 
30 ЖЕ : 

100 жжж Sëtzt M/L ROUTINE FOR PRINTER ON DCE BUS о жжже: 
110 ЖЖЖ ` me Y eee 
111 ж Go іп UTILITY: буре in next program: Save on tape, 
120 ЖЖЖ ---------------------------......................................-.-.------.-..........:..... 
150 жжж (9B 28 22 : HEAP 

140 жжж 0290 00 Oi :HSIZE 

158 +++ OSOF 20 ДА :TXTBGN 

160 жжж 8281 21 04 :TXTUSE 

178 "ek 0285 22 U4 :STBUSE 

120 жжж 200 СЕ ЕД Bz s DDUTC 

198 KEE ОК ЕЖЕН 

200 жюк @2Е@ ES PUSH H 

210 жжж UzF1 DS PUSH D 

220 жжж ВИЕ? CS PUSH B 

228 жжж ВЕС FS PUSH PSW 

280 жжж OEFA 57 MOV DA 

250 xx Й2ҒЕ 21 DE FE LXI H:idble 

260 жжж В2ЕВ SE BA MVI Mbyte 

270 жжж ВЗЕВ ZE DEX H 

2208 жжж DIFE ВЕ 20 MVI В, byte 

290 Cwwk O2FD 7E , MOV ALM 

2420) | жжж Й?ҒЕ ЕБ BU ANI byte Баз 

510 южжж (0500 2 FD 02 JNZ addr 

520 жжж BEDE 7A MOV ALD 

330 ж+ж @%04 32 U0 FE . STA addr 

зай жжж 0307 ЧЕ FD MVI Mbyte ` 

250. жжж 0509 05 р DCR В а” 2. Ana 

J60 жжж Qn С? 098.03 JNZ addr. | 

570 жжж 0700 36 FF MUI Mbyte 

560 жюк DEAF Fi POP PSW 

290 жжж 0318 Ci . i POP B 

400 жжж 0511 Di POP р 

410 жжж 0212 Ei РОР Н 

420 жжж 0515 СӘ | RET 

420 жжж 

440 жжж 

458 REM : USE РОКЕНІЗ1.2 TO ACTIVATE PRINTER 

460 — REM : USE РОКЕН121.1 TO DEACTIVATE PRINTER 


478 REM Aut. J. А. Р. 


ааа irr оо Р 


COMER ae 


INHOUD ОРБАЧЕ (1) 


TITI EE EE o 
W 7; 


Wijziging DAI computer van interliniering naar 
niet interliniering. 


ma 


~ 


Wijziging DAI pal kleuren kaart t.a.v, video- 
en kleur-bandbreedte. 


сч 


Afregel ing TV lijn frequentie. (15625 Hz) 


С 


Afregeling- en wijzigingen t.a.v. kleurendraaggolf 


сл 


Afregeling geluid draaggolf 


a 


programma 'Test beeld’ 

| 7 Cassette "ERT: 

8 Ruilen cassette 'Viditel' 

9 Adres wijziging ondergetekende 


ү 10 Algemeen, slot 


DAI video-hardware 


1 Wijziging DAI computer van interliniering naar (2 
niet interliniering. 


rr rrr ee nun nn a 
=555255522222222222222227222235352722223222252252 


Een TV beeld wordt opgebound net 625 Li jnen. 
Deze lijnen worden niet in 1 keer op Uw schera geschreven, 


maar in 2 keer. 


Net andere woorden: eerst wordt op Uw schera de oneven 
lijnen geschreven, vervolgens de even lijn nummers. 
Van de 625 lijnen zijn er ongeveer 550 zichtbaar. 

Un DAI computer doet het op dezelfde wijze,echter 

de inforaatie van de oneven- en even li jnnuamers zijn 
hierbij gelijk, 

Stel: de nu volgende schrijfslag zijn de oneven lijn nua- 
mers. De de hierna volgende schrijfslag bevat hetzelfde 
beeld inforaatie aet dien verstande dat het iets lager 
op Uw ТУ schera geschreven wordt, (Afstand tussen beide 
schrijfslagen is ongeveer van 0.5aa tot 1.0 aa.) 

Een schrijfslag duurt 2085, (5082) 

Samenvattend: de door Uw DAI computer gegenereerde 
beeld staat iets te dansen in vertikale zin,met een 
periode tijd van 2 4 2085 = 40as 

Dit is de oorzaak dat Uw DAI computer een enigsinds 
onrustig beeld geeft. 





Wijzigings voorstel interliniering - niet interliniering (3) 


ІС 25 . Ба 
INM34 (Ferrantie) 741504 


I--Aanbrengen. 
I 


' 

мо. 
| ra 
1 


1 

sita , 1--Увгні jderen. 
I 
GND 


Aangezien poot 12 van IC 25 onder deze chip aan de 
komponent zijde van de print aet de "БНО" is verbonden, 
is het aoeilijk om deze verbinding te verbreken, 

ба deze poot toch vrij te saken kan aen het beste 

vlak boven de print (koaponent zijde) deze doorknippen, 
ов vervolgens enigsinds oahoog te buigen en aet een 
draadje te kunnen doorverbinden aet poot 14, 


Voordeel van de hiervoor aangegeven wijziging zal (4 
een ieder wel duidelijk zijn. 

Deze wijziging heeft ook een nadeel: 

Indien men gebruik aaakt van де 2085 interrupt 

{vector 7) b.v. een real time clock, zal deze kiok 

iets te snel gaan lopen. 

flkristal (zna 134)) = 2,582,500 Hz 

füijn) = f(kristal) / 164 = 15625 Hz 

flraster) = f(lijn) / 312,0 (was 312.5) = (50 + 25/312) Hz 
De '20as' interrupt koat nu iedere 19.968 as. 

Verder oagerekent koat het op neer dat de real tiae 

clock per 24 uur 138 sec te snel zal lopen, voorop 

gestelt dat de kristal frequentie gelijk is aan de 
opgegeven waarde. 


zie hiervoor verder hoofdstuk 3 van deze brief, 
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DAI video-hardware 


2 Wijziging DAI pal kleuren kaart t.a.v video- (3) 
en kleur-bandbreedte 


aetna EE EE EE ptt tet a 
s2222222222232222255552222222222222222222222 


Het viel mij op dat het testbeeld, uitgezonden door 

de nederlandse televisie zenders een hogere resolutie 
had dan de door aijn DAI computer gegenereerde plaat jes. 
Oorzaak hiervan is dat de video-bandbreedte van de 
DAI-pal color-chart aaar slechts ЗМН is. (-6dB) 

Idea voor de kleur-bandbreedte namelijk 0. 75MHZ. 

Маагов heeft de firma 'DAI' deze bandbreedtes zo klein 
gekozen? Misschien oa interferenties te voorkomen? 

De bandbreedtes van een televisie toestel zijn resp. 

5 MHZ en 1.5 MHZ. Na de op de volgende bladzijden 
beschreven wijzigingen krijgt de TV interface band- 
breedtes van resp 7MHZ en 2.5 MHZ. 

Dit geeft een enorae verbetering t.a.v.het oplossend 
vermogen. Na de wijzigingen heb ik in het geheel geen 
last van interferenties en dergelijke.Bij enkele andere 
merken TV's echter wel.De TV die ik gebruikt als monitor 
is een philips met ’KT3’ chassis,43 ca 90 graden beeld- 
buis.De toepassing van een 90 graden beeld-buis maakt 
deze TV zeer geschikt als monitor voor uw DAI coaputer. 
oadat het oplossend vermogen van de heeld-buis groter 
is (focus) dan vanuitgaande van de ЗМН? bandbreedte. 


Wijzigings-voorstel voor DAI-pal color chart. (helderheid) (6) 


7415164 45v 7415125 
See . [1470E 8К2 yore bh 15 
10----П [---*-----[]--I I [тезе {1--[ 
--1) ПО (Ног 4) I I 1----- {]--I 
[esce b. Soenens "3 но I 
I I ri I 
І 7415164 +5у I CHKO 1------І 
| .------- . 11470Е 4K7 I I 5601 
Di--I-ID Jessicaa: [1--I П---П--1 ME: 


I-D Iiü(Mordt 4) I GND 1283704 I 
Ее : I 100uH 165 I I---I 101989 
I 1---“““--І1-П---І 12.------ 5 
I 748184 + — I / I I-}I--I I 
„ранена , 11470Е Ж2 I ^ 22рр=== I I I 

D2--1-ID [== [I-I ^ ^ DND IKO[] ’------ ' 
І-І» H0(Wordt 6) I ^ (Verwijderen) -5v 
] ные т I A - 
1 І (Spoel verwijderen) 
I 745164 збу I (еп doorverbinden ) 
I .------- . [J470E 1К0 I 

D3--1-ID lm [1--I 

CLOCKI- D? Itü(wordt 4) ===100pF (Verwi jderen) 


"20882 "-------" . № 





Wi jzigings-voorstel DAI-pal color chart. (Kleur) (7) 
7415374 
Acer: . 168 
I 1---П1--1 470uH (Wordt 100uH) 
I I IKO І---І------------------- zt, 
I I---(]--I -I I I 
I I 470E І ===S&pF(Nordt 150pF) []2K2 I 
I 1---11--1 600 END I 101489 
Innen ; I Гэ 455s š 
I tiv .---ГІ----1---І 1 
7415125 I 11270Е Г 22 I I 
(T , AME І 1------- |-------- |------------- 1 1 
I I---(]--? [1150Ё ===22uF І 2K2 I I 
I I---[]--. BND END ?---[]----I---] I 
ыс веш ' AIEI I "e | 
1 1 
7415374 І---І------------------- |-- а 
augeri . IKE I I I 470uH(Wordt 100uH) 
I I---[1--I ===56pF (Wordt 150pF) [Y2K2 
I I iko I GND I 
I І---Г1--І [1500Е (Instel } 
I I 470E I END 
І 1---11--1 
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$ Afregeling TV lijn freqeuntie (15625 Hz) (8) 


De lijn fregeuntie, welke door vi jn DAI computer werdt 
gegenereerd was ongeveer SHz te laag. 

Dit is echter voor normaal gebruik (Als computer) in het 
geheel niet van belang, tenzij aen er veel waarde aanhecht > 
aan de naukeurigheid van de 2085 interrupt. (V7) 

Heeft aen de wijzigingen doorgevoerdt die in hoofdstuk 1 
zijn beschreven, is de fout echter veel groter, 

Daar ik een radio/televisie service-amateur bent hecht ik 
een grote waarde aan de naukeurigheid van de TV li jn 
frequentie t.b.v. afregeling en controle van de kleuren 
deaodul ator en, 


_ ба de lijn frequentie te kunnen afregelen in Uw DAI 


computer moet er een kleine wijziging worden uitgevoerdt, 
namelijk: een condensator moet worden vervangen door een 
instelbare type. (Zie volgende bladzijde.) 

Nogaaals: een ieder die de DAI computer niet als testbeeld 
generator gebruikt, heeft het in het geheel geen zin oa 
de in dit hoofdstuk beschreven wijziging en afregeling 

uit te voeren. 


Wijziging en afregeling TV lijn frequentie: (9) 
INA 134 
B.-------- 10 
4762555 I І----/2----- I---?-1,281,250.0 Hz 
I I I -------- ^ I3 
а ДР I I ^--/82----1---)-15,628 Hz 
I I I I 
=== IüscI I 
п I I I 
$ss I I I 
I 1 I I 
(515727 I I I 


--------------- 





` Condensator "С wordt een instelbare type van SOpF. 
` Hieraede regelt aen de frequentie op pin 10 van IC25 
< (ZNA 134) af op 1,281,250.0 Hz aet een frequentie teller. 
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4 Afregeling- en wijzigingen t.a.v. kleuren draaggolf. (101 


TTT 
KEE 


Het gebruikt van de DAI computer als testbeeld generator 
heeft mij snel geleerdt dat de frequentie van de kleuren 
draaggolf te hoog is, zodanig dat enkele ТУ toestellen 
het niet kan "pakken" zodat er niet op kleur weergave 
wordt overgeschakeld.Dit is echter al eerder op gemerkt, 
zie hiervoor een DAInamic nieuwsbrief. 

Oa de genoeade frequentie lager en afgeregeld te krijgen 
zoet er instelbare condensator van 22pF parralel aan de 
kristal geplaatst te worden. (Kristal, welke op het 
modulator plaat bevindt) 

Deze frequentie вові heel nauwkeurig afgeregeldt worden 
en oadat de door aijn gebruikte frequentie teller niet 
nauwkeurig genoeg is het ik een ander methode gebruikt 
namelijk om de frequentie te vergelijken set de van een 
TV zender door aiddel van lisajoux figuren op een scoop. 
De ene kanaal wordt op Uw DAI coaputer aangesloten 

op de ingang van de HF modulator (Kleine blikken doosje, 
welke op de modulator plaat bevindt, pin 4.) terwijl de 
ander op de uitgang van de kleuren referentie generator 
van Џи TV toestel wordt aangesloten. 

Typ op Uw DAI computer:'100 COLORG i 0 0 0: М0рЕ5:60Т0 100’ 
vervolgens: "RUN". 





(11) 
"Steat Uw TV toestel af op een TV zender en kontroleer 
of het testbeeld под in kleur wordt weergegeven. 
Laat nu de computer en de TV een half uur opwaraen. 
Vervolgens regelt U set de erbij geplaatste instel 
 condesator zodanig af dat het lisajoux figuur op de scoop 
stilstaat. 


5 Afregeling geluid draaggolf (12) 


Z223322522252222222222222222 


De frequentie van де geluid draaggolf is eveneens van 
belang als de DAI computer wordt gebruikt als test beeld 
generator. 

ба deze af te regelen heeft men een scherp geslepen 
lucifer stokje nodig. 

Dit laat zich aakkelijk afregelen. Men sluit een 
frequentie teller aan op pin 1 van de HF aodulator. 

In de deksel van deze modulator bevindt een tweetal gaat jes, 
men nese de dichtst bijzijnde bij de aansluit zijde 

en regel de frequentie af op 5,500 KHz. 

Hierbij dient ’SOUND OFF" te zijn. 

Bij aijn DAI computer was naregeling niet nodig. 
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$ Prograasa ‘Testbeeld’ (13) 


loals U al weet ben ik een sevice amateur, dus had ik een 
behoefte aan een eigen testbeeld generator. 

Dit is ook de hoofdreden geweest om mijn DAI computer 

op diverse punten te wijzigen. (lie alle voorgaande 
hoofdstukken. ) 

Als voorbeeld voor het te generen plaatje heeft het 

test beeld plaatje van de nederlandse zenders gestaan 
Problees was echter dat de DAI basic Vi.1 in de grafische 
bewerkingen niet de onzichtbare gedeelten support, hetgeen 
voor een testbeeld van uiters belang is. 

Dat is de reden dat in het programaa "testbeeld’ (verder op 
deze cassette.) erg veel naar het scherm gePOKEt wordt. 

De cirkel is wat kleiner uitgevallen omdat ik dit keer wel 
gebruik wilde maken van de basic support. 

Dit programma is niet voorzien van allerlei instel 
mogenlijkheden, gebleken is in de praktijk dat ik toch 
iedere keer het zelfde plaatje wilde hebben 

Een korte beschrijving van het progranaa: 

Regels 100-999 is het hoofd programma welke kort is. 
Regels 1000-1060 is de initializatie van het beeld schere 
geheugen, hierbij wordt het scherm enigsinds oahoog 


geschoven en van onder wat toegevoegd. il! 
Regels 2000-2804 zorgen er voor dat er de witten blokken 
гопдоя het plaatje geplaatst worden. (De aeesten zijn 


niet af gedeeltelijk zichtbaar.) f 
Regels 3000-3070 deelt het beeld op in kleine vierkanten 

blokjes. D 
Regels 4000-4050 tekent een eenlijns cirkel welk in het де 
hoofd ргодгаваа niet gebruikt wordt. Wenst aen er wel il 


gebruik van te maken is het aan te roepen aet ° 50518 40007 
het houdt in dat in regel 110 ?60508 5000’ aoet шш 
іп "80508 4000”, 
Regels 5000-5960 zorgt er voor dat er een 'gevulde cirkel’ 
in het midden van het testbeeld wordt opgetekendt. 
Deze cirkel is als volgt ingedeelt: van boven naar beneden 
- Rood/qeel balk ter controle van de vertragings lijn. 
= Zwart reflectie balk ter controle van reflecties en 
uitslingeringen van midden frequent gedeelte en 
dergelijke. 
- Grijs gradatie balk ter controle van de lineairietiet 
van de video eindversterker (в), 
- Kleuren balken ter controle van de kleur weergave. 
- Het aidden van de cirkel is voorzien van een kruis ten 
behoeve van de convergentie. 
~ Frequentie balken ter controle van de frequentie 


= p deux іл 





karakteristieken van onder ander MF gedeelte (15) 
en video eind versterker (s), 
= Grijs gradatie balk. 
- Geel/rood balk ter controle van de vertragings lijn. 
Tenslotte van dit programma bevindt een eigen variatie 
van de SGT. (Slow Graf Text) 
Dit ргодгавва is voor een groot gedeelte overgenomen uit 
het DAI handboek.Allerlei beveiligingen die moeten voor- 
komen dat de text string van het beeld af kan lopen zijn 
verwijderdt.Daar dan tegen is dit prograaaa uitgebreidt aet 
de optie dat aen in staat stelt text onder allerlei veschil- 
lende hoeken te doen optekenen,dit in tegenstelling van 
andere versies van graf text waar dit allen mogenlijk is met 
hoeken met veelvoud van 90 graden. 
SGT is aan te roepen aet ' 60508 40000". 
In het hoofd programaa aoet aen ten behoeve deze subroutine 
een extra 'CLEAR 1400" plegen. 
- Variabele "АФ" bevat de te printen text string. 
- Variabelen 'X’ en "У" bevatten de coordinaten van het 
startpunt van te printen string. 
- Variabele "ВЕУ? is de hoek waarmede de string wordt 
afgedrukt, in radialen, tegen de klok in. 
- 'C’ bevat de kleur code waarmede . het wordt opgetekend 
- "Р' bepaalt де vergrotings factor. 


80 


7 Cassette "ЕТ! (16) 


Ik ben al een enige tijd in het bezit van het ргодгаава 
"FGT’ het wordt tot volle tevredenheid gebruikt. 
Een nadeel van dit programma іс dat het een machinetaal 
prograaaa is.Het is altijd lastig ой deze aet een basic 
prograssa te laden,hetzij apart of deze bevindt als data 
opslag in het basic programma aet alle gevolgen van dien. 
In het nuamer van het blad DAInaaic geeft U een redelijke 
oplossing voor dit probleea, hetgeen ik nag niet 
uit geprobeert hebt, 
Het grote voordeel dat het een machine taal prograasa is 
vindt ik ook de snelheid, welke belangrijker is dan 
de hier voor gegeven bezwaren, 
De nu volgende file's ben ik niet in geslaagt oa deze in 
te lezen: - 06] trigisch alfabet, 

- Obj вог5е alfabet, 
Wilt U de genoemde files aij alsnog doen toekomen? 


) 


В Ruilen cassette ’Viditel’. (17) 


Ор фе НСС dag in Utrecht heb ik het programaa viditel 
gekocht.Met dit programma heb ik nog geen ervaring oadat 
ik под geen andea tot aijn beschikking heb. 

In de half-duplex воде heb ik al reeds er aee gespeelt. 
De belangrijkste functies die naar mening под missen zijn: 

- Het laten knipperen van een symbool. 

- De aogenlijkheid van het opslaan van de pagina’s, 

- De mogenlijkheid van het maken van een hard copy 

van een pagina. 

Bijgvoegd is de cassette die ik heb gekocht. 
Deze zou ik graag willen ruilen voor Viditel versie 3.0. 
[Чп de bespreking van Viditel in DAlnaaic jan./feb "82 
heen ik aan dat de genoemde functies zijn verweselijkt. 


H 


MODE 6: КХ=8 
COLORG 8 6 4 2:MODE 5 





| Ze (PDL (4) 127) 10/256 


1100 XNZ=XO%+XD“%: IF XNZ<O THEN XNZ=O 


1110 IF XNZ>XMAX THEN XNZ=XMAX 


1120 YNZ=YOXZ+YDZ: ТЕ YNZ<Y3% THEN YNX-Y3X 
1130 IF YNZ>YMAX—1 THEN УМХ=УМАХ-1 
1140 UNZ-UOTZ-UDZ:IF UNZ<O THEN UNZ=0 
1150 IF UNZ>XMAX-1 THEN UNZ-XMAX-1 

| 1160 VNZX-VOZ-VDZX: IF VNZ<O THEN VNZ=0 


| 1170 ТЕ УМХ>Ү25У THEN VNZ-Y23* 
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10 Algeseen, slot. (19) 


TT P 
EECH 


Veel lof heb ik voor het clubblad DAlnasic. 
Praktisch elke letter wordt door gij gelezen. 
De software krijgt veel aandacht in het blad, b.v. het 
werk van de heer Boerrigter t.a.v het uitzoeken van de 
DAI firsware.Ik wacht al ongeduldig op het boek over 
het genoeade onderwerp. 
Hardware matig gebeurt er vrijwel niets. 
бгаад zou ik willen zien dat er een koapleet schema van 
de DAI computer wordt uitgegeven. 
Sinds kort wordt het clubblad DüInamic gebonden, hetgeen 
veel beter bevalt dan de losbladige, er вее door gaan dus. 
In afwachting verblijf ik 

Hoogachtend 


А, Doornenbal 


A. Doornenbal, 

Qud Aa 39a 

3621 LA Breukelen. 
Tel. 03462-3237 


REM +++ DRAWING WITH PADDLES R.RENS +++ 


XMZ=XMAX/2: YMZ=YMAX/ 2: УЗИ=УМАХ / 3: Y234-YMAX€2/3 

XNA=XM%: УМХ= УЗ И: UNZZXMZ : VNZ=YS% 

XOZ=EXNZ: Y0Z=YNZ: UOZ=UNZ: VOZ=VNZ 

XDZ=(127—PDL (1) ) 10/2356: YDZ= (PDL (2) -127) 10/256: UDZ= (PDL (5) -127) #10/256: VI 


1200 DRAW ХОХ,„УОХ ХМХ, УМХ Кх: DRAW UOX,VOX УМХ, УМХ K1% 
| 1220 EVIZ=(PEEK(H#FDOO) IAND #20) SHR S:IF EV1%=1 THEN FILL 0,Y3% XMAX,YMAX 8 
1250 EV2Z=(PEEK(#FD00) ТАМО #10) SHR 4:12 EV2%=1 THEN FILL 0,0 XMAX,Y23% 8 


1500 ZZ=PDL (0) : ZDZ= (ZZ—1) / 16: KZ=ZD%X 
1310 WZ=PDL (5) :WDZ= (UZ—1) / 16: K1Z=WD1Z 


1400 GOTO 1000 
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280 
290 
300 
310 


90 

100 
110 
120 
130 
140 
150 
200 
210 
220 
250 
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5. 


REM LARGE SIZE CHARACTERS / F.H. DRUIJFF 1/82 


PRINT СНЕФ (12) ; М у 
PRINT "LARGE SIZE CHARACTERS. " la rge size characte rs 
PRINT "======================" ` 

PRINT :PRINT "THIS PROGRAM SHOWS ANOTHER POSSEBILITY OF DAI." 

PRINT "YOU CAN CREATE LARGE SIZE CHARACTERS BY CHANGING 7 IN THE" 
PRINT “FIRST HALF OF THE CONTROLBYTE IN 6,5 OR 4." 

PRINT :PRINT "SINCE THE REAL INFORMATION IS ONLY TWO BITS OF THIS BYTE" 
PRINT "IT IS USELESS TO TRY OTHER NUMBERS THEN 7,6,5 OR 4." 

PRINT "IF THE CHARACTERS HAVE A LARGER SIZE IT WILL BE CLEAR THAT" 
PRINT "LESS CHARACTERS WILL FIT ON ONE LINE. IF YOU USE 7 THERE 15" 
PRINT "PLACE FOR 66, WITH ó 44,WITH 5 22 AND WITH 4 11 CHARACTERS. " : PRINT 
PRINT "IF YOU WANT THE WHOLE SCREEN TO USE WITH NONSTANDARD CHARAC-" 
PRINT "TERS, YOU’LL HAVE TO REBUILD THE SCREENAREA BY YOURSELF." 
PRINT "STARTING EACH LINE WITH TWOC') CONTROL BYTES; FILLING THE" 
PRINT "LINE WITH CHARACTER AND COLOR INFORMATION. " 

PRINT “ALSO WILL THE NEW CONTROLBYTE HAVE TO FOLLOW ON THE EXPECTED" 
PRINT "DISTANCE. (DEPENDING ON THE SIZE YOU USE)" | 

PRINT "NORMALY YOU ONLY USE LARGER SIZE FOR HEADINGS." 

PRINT "A SIMPLE WAY OF USING THIS IS: KEEP NORMAL LENGTHS AND WIPE" 
PRINT "UNDESIRED INFORMATION WITH A *COLORT x у x x” INSTRUCTION." 
PRINT :PRINT “START DEMONSTRATION BY TYPING SPACE. "; 

IF GETC-O GOTO 230 | 

PRINT СНЕФ (12) =РАТМТ 

COLORT 8088 

T#="% DAI x" 

PRINT T$ 

WAIT TIME 100 

POKE #BFEF—-24#86, #54 

WAIT TIME 100 

POKE #BFEF—24#864, #5A 

WAIT TIME 100 

POKE #ВЕЕЕ-23#86,#4А 

PRINT :РКІМТ :PRINT : PRINT "NOW ON ONE PAGE." 

WAIT TIME 100 

PRINT CHR$ (12) 

PRINT SPC(20); ТФ 

PRINT :PRINT SPC (12); ТФ 

PRINT :PRINT БРС (4) ; T$ 

PRINT :РКІМТ TS 

POKE #ВРЕР—5Ж#84, #64 

POKE #ВЕЕР-—5%#86, #54 

POKE #ВЕЕР-71#86,#4А 

WAIT TIME 100 | 

PRINT :PRINT :PRINT :PRINT "RESTART DEMONSTRATION WITH SPACEBAR AND STOP и 


H=GETC 

IF H=32 GOTO 240 
IF H<>83 GOTO 460 
END 


GOTO 200:REM BEER / F.H. DRUIJFF 2/82 beer 
На (7+4) /10:DRAW Х-Н,Ј X29+H,J C:RETURN 

FOR X=11 ТО 291 STEP 56:Х10=Х+10: Х18=Х+18: X29=X+29 
FOR Y=147 TO 2 STEP -3:FILL X10,Y X18,Y+2 22: МЕХТ 
К=0:С=23:РОК Ј=2 TO 7:WAIT TIME 2:GOSUB 20:NEXT 
FOR I=8 TO 631C=22:J=@1-6:GOSUB 20:WAIT TIME 2 
Си231#1+К: ВОВИВ 20:12 I MOD 4=0 THEN K=k+i:J=I+k:GOSUB 20 

NEXT:FOR Y=147 ТО 80 STEP -3:1F YzY/24X24 THEN J=J+1:GOSUB 20 

FILL X10,Y X18,Y+2 2O:NEXT:J=J+1:GOSUB 20:X1=X+16: X2=X+1B8:X3=X+17 

FOR Y=149 TO 147 STEP -1:DOT X3,Y 22:WAIT TIME 2 

DRAW X1,Y X2,Y 22:WAIT TIME 2:NEXT:DOT X3,146 22 

FOR Үш145 TO 83 STEP -2:FILL X1,Y X2,Y+i 22 

DOT X3,Y-1 22:FILL X1,Y+3 X2,Y+4 20: МЕХТ 

DRAW X+10,82 X+24,82 23:FILL Х1,84 X2,85 20:T=1-T 

IF T=1 GOTO 100:DRAW X+14,83 X+22,83 23:NEXT:END 

MODE 6A:COLORT 5 5 5 SICOLORG & Ó 14 15:FOR Х=10 TO 290 STEP 56 

DRAW Х,0 X-8,81 21:FILL X,O X+30,1 21:DRAW X+31,0 X+39,81 21 

DRAW Х-1,0 Х-9,81 21:DRAW X+32,0 X+40,81 21:FILL X*10,154 Х+20,211 21 
DRAW Х+13,154 X+13,211 22:FILL X+8,150 X+22,153 21: МЕХТ: ВОТО 30 











alternative printer routine 


Тһе RS232 interface on your DAI is designed for operation of a 
printer via a-handshake protocol. The serial output interface 
chip 5901 sends only data to the printer if a "ready" signal is 
received. The software routine for serial output can be found on 
the addresses #0094-#0084. 


Several times I have been called by people who wanted to use a 
printer without the handshake facilities as expected by the DAI. 
Therefore I designed the annexed alternative printer routine. 


This specific routine is written for a printer which had timing 
problems with the line feed signal. But we will see that the. 
routine can easily.be adapted to cope with other problems. 


The principle of the routine is based on the DAI feature that input 
and output routines, available in the ROM's, can be replaced 

by any other, user specified, routine. As can be found in the 
memory map, the output direction is determined by the output 
direction pointer OTSW on address #131. For normal RS232 operation, 
it has the value ЖОО, But if the value is SOS, it points to the 
instruction on address SO2DD (DQUTC). Normally, you will find a 
return instruction on this address, but this can Бе. replaced. Бу 

a jump instruction to a user specified routine in RAM. 


The alternative routine starts with a initialisation routine. 

It changes the startadtress of the Heap to after this ML program. 
Then on address #0200 a jump to the alternative printer routine 
is loaded. If you load the routine directly after switching on 
the DAI, it must be followed immediately by UT > G500 before 
loading a Hasic program. 

(Notes For machines with Basic V1.1 the NEW routine is on 

address #DEEE!) , 


The alternative printer routine starts on #0517, It is the same 
routine as on #DD94, except the additional delay on #0337. 

When required, another delay routine can be Used for more or 
for less delay time. ` | 

The comments annexed to the ML routine indicate how to use 

this routine. 


If your printer doesnot have any handshake facilities at all, 
the instructions on 40322-40227 (waiting for a ready signal from 
the printer) can be cancelled. If required, a delay time can be 


inserted in stead of this "wait for printer ready’. 
It is possible of course to integrate this alternative printer 
routine in a Basic program. See therefore the article "Combination 
Basic and ML programs/rules for standardization’ 
But then the lines 8201-8209 must be skipped! 

“ 
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PAGE 01 RS232 REPLACEMENT 


alternative printer routine 


202 

ODE ORG 2300 

004 x 

ооб 0300 ES INIT PUSH H 

006 0201 213005 LXI H, LAST 

007 0304 2296802 SHLD 20298 HEAP FOINTER AFTER ROUTINE 
008 0307 CDESDE сащ :DERS RUN NEW (SHIFT ТЕХТВЏЕ) 
009 O3OA^ 21рро2 LXI Н, #O2DD ) 

010 OZOD 3603 | MVT M.:C3 ) SET DOUTC FOR 

011 ОЗОР 211703 © LXI H,RS232 ^») REPLACEMENT 

012 0512 22DEO2 SHLD :020Е ) ROUTINE 

015 0519 Е1 FOF H | 

014 0516 C9 RET 

015 Ж | | 

016 Ж 

017 Ж 

018 0517 FS RS232 FUSH FEW 

019 0318 ЕР RST 5 QUTFUT TO SCREEN 
020 0519 05 DATA :05 

321 O31A SAOOFD ооткру LDA : FDOO 

222 OS1D E608 ANT :08 

025 ОЗІЕ CALAOS JZ QUTRDY WAIT OUTPUT READY 
024 O322 ЗАРЗРЕ BUFEMF LDA ıFFFF 

O25 0325 Еб10 ANI :10 

O26 0327 CAZZUS JZ BUFEMF WAIT BUFFER EMPTY 
027 ОЗ2А Fi POF  PSW | 
028 озгв S2F6FF STA ıFFF& OUTPUT CHAR 

O29 OS2E FEOD CFI 800 САК. КЕТ? 

Gio 0330 СО RNZ READY WHEN. NOT 

051 0551 FS FUSH FSW 

ода 0552 SEOA MV I As OA 

оз 0554 CD1703 CALL RS232 PRINT LINE FEED 

034 0337 CD41DE CALL :DE41 DELAY 

035 ОЗЗА Fi POF FSW | 

O36 OXSB C9 RET 

O37 x 

O38 03536 oO LAST NOF 

059 x 

зда Ж . А 

941 k After loading this routine: UT >G 0500, 
042 Ж to run initialisation. 

O43 Ж 

044 k In Basic program: FOKE. #131,3 to activate 
045 k printer; POKE #121,1 to switch off. 

046 x ' | 

O47 k For use with machine language programs, the ORG 
048 * must refer to an address outside the ML program! 
049 — Ж 

050 0530 END 


222 2222 2222 200 2522222722222: 
XSYMROL TABLE k 
ЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


‚BUFEMF 0522 INIT озоо LAST ORAC QUTRDY оз1а 
RS232 0517 
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spot on text 


REM SPOT ON TEXT / F.H. DRUIJFF 1/82 

PRINT СНКЪ 112); : СОГОКТ 8 O 8 14 

PRINT "SPOT ON TEXT" 

PR INT *============" s PRINT 

PRINT "IN THIS PROGAM WILL BE SHOWN THAT YOU CAN CHANGE TEXTCOLOR" 

PRINT "AND BACKGROUND COLOR OF ANY PART OF THE TEXT." | 

PRINT :РКІМТ "YOU PERFORM THIS BY FILLING THE COLORBYTES OF THE CHARACTERS 


PRINT "YOU WANT TO CHANGE WITH #FF (DECIMAL 255)." 

PRINT "IF YOU CHOOSE ANYTHING ELSE THEN #FF THEN ONLY THE COLUMS OF" 
PRINT "THE CHARACTERMATRIX WILL CHANGE OF WHICH THE CORRESPONDING" 
PRINT "BIT IN THE COLORBYTE IS 1." 

PRINT "ТЕ THIS IS TOO COMPLICATED AT THE MOMENT JUST TRY SOMETHING" 
PRINT “AND REMEMBER TO CONVERT THE NUMBER YOU INTEND ТО POKE IN ВІ-" 
PRINT "NARY NOTATION." 

PRINT "THE BYTE TO POKE IS FOUND IN THE FOLLOWING WAY:” 

PRINT "?#ВЕЕР-У1#86-Х#2-3 WITH X-POSITION IN LINE AND Y-LINE-1." 
PRINT "REMEMBER THAT FIRST 3 CHARACTERS ARE NOT PRINTED BY PRINT." 
PRINT :PRINT "THE COLORS USED ARE GIVEN BY A 'COLORT* INSTRUCTION." 
PRINT "THE POKED COLORBYTES WILL FORCE THE SECOND SET." 

FOR I-4BFEF-6xX486—56*2—5 TO I-18 STEP -2 

POKE I,SFF:NEXT 

FOR I-4BFEF-9xX1486—-8*2-5 TO I-28 STEP -2 

POKE I,#FF=NEXT 

FOR I=#BFEF-11%#86-19%2-3 TO 1-20 STEP -2 

FOR J=0 TO В: РОКЕ І, 27): МЕХТ: МЕХТ 

PRINT :РКІМТ "CONTINUE BY SPACE STOP WITH 5." 

C3=RND (16) :C4=RND(146): IF С5-С4 GOTO 270 

COLORT во C3 CA 

CURSOR O,1:PRINT "YOU ARE USING NOW COLORT 8 0";C3;C4;" "5 
B-GETC:IF G=32 GOTO 270: IF G<>83 GOTO 300 

COLORT 8000 

PRINT СНЕФ (12) e END 


| tumbling lines 

COLORG O 15 15 15 

REM TUMBLING LINES F.H. DRUIJFF 2/82 

MODE 4:CLEAR 2000:DIM X(18),Y(198):GOSUB 90:GOTO 50 

FOR І-17 ТО О STEP –1:Р=Х-Х (1) : РКА Х,О P,Y(I) 22:DRAW X,O P,Y(I) O:NEXT:R 


FOR 1=0 ТО 18:P=X+X(I)=DRAW Х,О Р,УСІ) 22:DRAW Х,О P,Y(I) O:NEXT:RETURN 
FILL 0,0 24,26 22:FOR A=24 ТО О STEP -і 

X=A:GOSUB 40:Е=ХМАХ-28:1Е A=0 THEN E=E-26 

FOR Х=А+26 TO E STEP 26:GOSUB 30:GOSUB 40: МЕХТ 

GOSUB 30:DRAW Х,О P,Y(O) 22:NEXT:END 

FOR І-О TO 18:READ Х(Т) :у(18-1) -Х (1) : NEXT: RETURN 

DATA 0,2,4,6,8, 10, 12, 14, 14, 18, 20, 21, 22, 23, 24, 25, 25, 26, 26 


patchwork 


REM PATCHWORK / F.H. DRUIJFF 2/82 

MODE 1:DIM С(3) : КЕМ PROGRAM RUNS ALSO IN MODE 3 ОК S 
FOR I=XMAX-7 ТО O STEP -В: РОК J=0 TO YMAX-3 STEP A 

FOR K=O TO 3:C(K)=RND(16):NEXT:FILL I,J 1+7,0+3 RND(16) 
FOR Y=J TO J+3:M=2-M:FOR Х=1+7 ТО I STEP -1:М=1-М 
K=M+N: DOT X,Y C(K):NEXT:NEXT:NEXT:NEXT:GOTO 30 
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1500 


REM FLUG-SIMULATOR A.MEYSTRE ANDLAUERSTR. 10 


REM FEB. 82 CH-4132 MUTTENZ SCHWEIZ 

REM. ====— =s 

REH г 

REM DIESER EINFACHE FLUG-SIMULATOR ZEIGT EINIGE : 
REM VIDEO-EIGENSCHAFTEN DES DAI-COMPUTERS AUF. fl и g simu | ato r 
REM 

REM WERT MODUS PUNKTE/ZEILE  BYTES/ZEILE 

REM O UNIT-COLOR-MODE 528 4 

REM 2 LOW 88 24 

REM 4 MEDIUM 176 45 

КЕМ 2 HIGH 352 90 

REM 8 ULTRA 528 134 

REM 

КЕМ FALSCHE EINGABE ERGIBT WERT О 

REM 


КЕМ TASTEN-FUNKTIONEN IM FLUG  ( mit REPT-Taste ) 
REM 


REM CURSOR AUF/AB zum STEIGEN und FALLEN 
REM CURSOR AUF/AB + SHIFT langsamer / schneller 
REM CURSOR AUF+AB Ruettel flug 

REM M-Taste Dieses Menue 

REM 


REM Bis zum fertigen Flugsimulator mit Piste und Berge 
REM ist noch ein weiter Weg. Diese einfache Version 
REM soll nur die Video-Moeglichkeiten durch 

REM Manipulation der Zeilenkontrollbytes aufzeigen. 
REM Die Wirkung ist augenblicklich ! 

REM Die Darstellung braucht in allen MODES 31 Zeilen. 
REM Weitere Zeilen verschwinden am unteren Bildrand. 


REM 

REM Je nach MODE sind LI Anzahl Bytes/Zeile 
REM . MCO  Colorbyte-Maske 
REM . MASK Modebyte-Maske 


REM zu setzen. 

CLEAR 1000 

PRINT СНЕФ (12) :1 15Т -100:MCO=#C0:MIX=0 

INPUT "99 REM GEWUENSCHTER MODUS EINGEBEN “"; ОМО: РКТМТ 
IF GMO=2 THEN МОРЕ 2:LI=24:MASK=#0:GOTO 1090 

IF GMO=4 THEN MODE 4:LI=46:MASK=#10:GOTO 1090 


IF GMO-6 THEN MODE 6:LI-90:MASK-420: BOTO 1090 


REM 

REM Fuer die Darstellungen O und 8, die im BASIC nicht 

REM unterstuetzt werden, sind stoerende Kontrallbytes 

REM von MODE & auf 00 zu setzen. 

REM LCB zeigt jeweils auf das Kontrollbyte. 

REM 

MODE 6:LCB=#BFEF:FOR 1=0 ТО 40:POKE LCB,O:POKE 1 СВ-1,0:1 СВ-і СВ-90: NEXT 

IF GMO=8 THEN LI=134:MASK=#30:60TO 1090 

LI-4: MCO-480: MASK=#30 

COLORG 1 12 12 1:REM Grundfarben ( Himmel ) 

REM Tabellen fuer 31 Zeilen (von oben nach unten) 

DIM Ві (50.0), ВС (30.0) , MIX (7.0) 

REM Zeilenbreite 

DATA 15,10, 1, 2, 3, 4, 4, 3, 2, 1,10,15,15,15, 1, 0, 1, 2, 3, 4, 5, 6, 7, 
10,11,12,15,14,15 

REM Hintergrundfarbe der Zeile 

DATA 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,12.12,12,12,15,15,14,14,15,13,13, 6, 6, 
5, 5, 7, 7, 5, 7 

REM Muster zur Farbmischung Dunkelblau/Hellblau 

DATA #20, #84, #51, HAA, #55, HBA, #62, HFD 

RESTORE:REM Einlesen von Zeilenbreite und Farbe 

FOR I-O TO 30:READ BL (I) :NEXT:FOR 1=0 ТО 30:READ BC(I):NEXT:FOR 1=0 ТО 7:R 


EAD MIX (1) = NEXT 
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; 
4 
: 
Я 





1800 


КЕМ 

КЕМ Іп der Bildmitte ist der duenne, weisse Horizont. 

REM Im oberen Bildteil wird der Himmel durch 

REM verschiedene Blautoene dargestellt. Die untere 

REM Bildhaelfte zeigt dahingleitende Felder in den 

REM Farben gruen, gelb und braun. Das Grundbild = 

REM wird nun aufgebaut durch Veraenderung der flug simulator 
REM Kontrollbytes-Informationen. LCB ist jeweils 

REM die Kontrollbyte-Adresse und LI ist die 

REM Differenz bis zum naechsten Kontrollbyte. 

REM 

LCB=#BFEF:FOR 1=0 ТО 30 

REM In den Zeilen 2 bis 7 wird ein Mischmuster eingesetzt 

IF 121 AND I<10 THEN MLCB=LCB-2: FOR J=1 TO 11-2 STEP 2:POKE MLCB-J,MIX (MIX 


):NEXT:MIX=MIX+1 


1900 
1950 
1960 
1970 
1980 
1990 
1992 
1995 
2000 
2010 
2020 
2050 
2040 
2050 
2100 


POKE LCB,BL (I) IOR MASK:POKE LCB-1,BC(I) IOR MCO:LCB=LCB-LI:NEXT 
REM 

REM U ist die Anfangsfluggeschwindigkeit 

КЕМ H, на, НВ und HC sind die Adressen der Bildkopfkontrollbytes 
REM Durch Veraenderung der Zeilenbreite in diesen 4 Kopfzeilen 

REM wird die Horizonthoehe verschoben. | 

REM M ist eine Maske zum einsetzen der Zeilenbreite. 

REM 

U=6: H=#BFFF : H4-H—4 : H8=H-8: НС=Н—1 2: M=#30 

REM 

REM Ab hier entsteht die ganze Bewegung der unteren Bildhaelfte. 
REM Die Farbe der Zeile wird jeweils zum naechsttieferen Kontrollbyte 
REM vesetzt. Dadurch entsteht die Illusion einer Vorwaertsbewegung. 
REM 

LCB-4BFEE-LIE16:F1-PEEK( СВ) ` 

FOR I=2 ТО 15:1 Сва СВ-І І: Е2=РЕЕК (СВ) : POKE LCB,F1:F1-F2:NEXT 

REM Am Horizont erscheint ein neues Feld mit Zufallsfarbe 

POKE #BFEE-L1I*146,BC(15.0+RND(15.0)) IOR MCO 

REM 

K=GETC:REM einlesen der gewuenschten Bewegung 

REM Das Flugzeug steigt, die Geschwindigkeit nimmt dabei ab. 

REM Die Breite der obersten Zeilen nimmt zu, so dass der Horizont 
REM nach unten gleitet und Sie somit hoeher fliegen. 

REM 

IF K-16 AND 0415 THEN U=U+1:U3=U IOR М:РОКЕ Н,ОЗ:РОКЕ H4,U3:POKE H8,U3:POK 


Е HC,U3 


2135 
2136 
2137 
2138 
2139 
2140 


REM 

REM Das Flugzeug sinkt, die Geschwindigkeit nimmt zu. Die Breite der 

REM obersten Zeilen nimmt ab, dadurch wandert der Horizont 

REM gegen den oberen Bildrand. Die Erde kommt naeher und naeher. 

REM 

IF K=17 AND U>O THEN U-U-1:U3-U IOR M:POKE H,US:POKE H4,U3:POKE Н8, 05: РОКЕ 


HC, из 


2145 


REM 

REM Die Geschwindigkeit nimmt ab ( die Wartezeit 5 wird groesser ). 

REM 

IF К-20 OR K-16 THEN 5=6+1 

REM 

REM Die Geschwindigkeit nimmt zu ( die Wartezeit S wird kleiner, aber nich 


t negativ ). 


2157 
2150 
2165 
2166 
2167 
2170 
2175 
2176 


REM 

IF K=21 OR K=17 THEN 5-5-1:ІҒ 5<0 THEN 5-0 

REM 

REM wurde M eingegeben, so erscheint das Menue. 

REM 

IF K=ASC("M") THEN MODE О:БОТО 1010 

REM 

REM Vor der naechsten Bewegung wird umgekehrtproportional zur Geschwindigk 


eit gewartet. 


2177 
2180 
2200 
2210 
2220 
2230 


REM 

WAIT TIME S:GOTO 2100 

REM | | 

REM Viel Spass ! Versuchen Sie mal dieses Programm zu erweitern, 

REM z.B. mit Motorgeraeusch, Piste, Berge, Wolken, Bordinstrumente ... 
REM Bitte berichten Sie mir falls Sie etwas erreichen, viel Erfolg ! 


87 


88 


INFO - INFO - INFO 


=== = === xs ie ee а 
SPACE INVADER 


On some machines, and for an unknown reason,the program doesn't 
initiate the values of POINTS,LASER and HIGHSCORE to the right 
contents. 

This problem can be fixed with the following patch:The area from 


D4-DE must be cleared before starting the game: 


49А JMP :ЗЕО jump to patch 
3E0 LXI H :0 old instr іп 49A 
3E3 SHLD $04 clear D4-DE 
ЗЕ 6 SHLD :06 
ж жо 990 эю мо мо мәж ж жж 
ЗЕ9 SHLD :D8 22122277272 
же е = е 
ЗЕС SHLD :DA 
3EF SHLD :DC еч 573 wh 
3F 2 SHLD :DD 
3F 5 JMP :490 cont program 


If you have problems with SPACE INVADER on your machine,and you 
cannot make the patch yourself,please return the tape,we will send 


a new one,at no costs.(This applies to the whole library ) 


KEE 
Ondergetekende zou gaarne in contact treden met DAI-gebruikers die 





bezig zijn met,c.q. reeds ontwikkeld hebben,een programma voor het 
samenstellen van roosters en/of clusters voor het gebruik op scholen. 
Liefst z.s.m. 

R.A.B.FABER tel : 01856:2865 

Keizersdijk 36 

3291 CE STRIJEN NEDERLAND 
REESEN 
OUTPUT TO RS232 ONLY 


— r. — 


POKE H2DD,H3C : POKE H2DE,H94 : POKE H2DF,HDD : РОКЕ H131,3 
Switch back with : POKE H131,@ 
eee 


revision 7 of DAIpc has been released : DCR_users Cannot use the first 


version of Eprom-print on this machine,Memocom is already supplying 
adapted prints. 

















INPUT FROM KEYBOARD 


INPUT KEYBOARD 
OUTPUT CHR IN A 


IN PUSH 
PUSH 
PUSH 
CALL 
POP 
POP 
POP 
RET 


DD DD se Tow 
о 
о 
е 
с 


INPUT FROM #5232 


INPUT #5232 
OUTPUT CHR IN A 


INM PUSH 
PUSH 


WAIC LDA 


RETM POP 


B 
D 


‘short ml routines 


OUTPUT TO VIDEO 


INPUT CHR INA 
OUTPUT VIDEO 


OUT 


PUSH B 
PUSH D 
PUSH H 
CALL :D695 
POP Н 

POP D 

POP B 

RET 


OUTPUT TO RS232 


INPUT CHR IN A 
OUTPUT RS232 


OUTM 


ВЕРІ 


RED2 


PUSH B 
PUSH D 
PUSH H 
PUSH PSW 
LDA :FDOO 
ANI 108 
JZ ВЕР 
LDA :FFF3 
ANI :10 
JZ RED2 
POP PSW 
STA :FFF6 
POP H 

POP D 

POP B 

RET 


8-BIT DIVIDE 

















INPUT D=MULTIPLICAND INPUT B=DIVIDEND 
C=MULTIPLIER C=QUOTIENT 
OUTPUT BC=RESULT OUTPUT D=DIVISOR 
E=REMAINDER MOV 
MULT MVI B,:00 RAL 
МУТ E,:09 DIV MOV A,D MOV 
MULTO MOV A,C CMA MOV 
RAR MOV D,A RAL 
MOV С,А MOV A,E MOV 
DCR E CMA MOV 
JZ DONE MOV Е,А RAL 
МОУ A,B INX D MOV 
JNC MULTI IXI Н,:00 POP 
ADD D MI А, :17 DCR. 
MULTl RAR DVO PUSH H JNZ 
МОУ В,А DAD D ORA 
JMP MULTO JNC DVL MOV 
DONE RET XTHL RAR 
DIV. РОР H MOV 
PUSH PSW MOV 
MOV A,C RAR 
RAL MOV 
MOV C,A RET 
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10 
20 
110 
120 
133 
135 
136 
137 
138 
139 
140 
150 
160 
170 
180 
190 
195 
200 
250 
260 
270 
280 
290 
300 
320 
330 
340 
345 
550 
560 
400 
500 
210 
520 
530 
540 
550 
560 
570 
380 
620 
640 
645 
650 
655 
670 
680 
710 
720 
730 
740 
750 
1000 
1010 
1020 
1030 
2000 
2010 
2020 
2030 


9500 
0510 
9320 


REM DIT PROGRAMMA SIMULEERT EEN 4 TAKT MOTOR 
POKE #75, 52 4-takt motor 
REM VAST GEDEELTE 

PRINT CHR$ (12) 

PRINT 

COLORT O 8 10 15:COLORG O 8 15 6 

MODE AA 

DRAW 37,10 43,10 21 

DRAW 49,10 59,10 21 

FILL 40,15 85,11 23 

DRAW 39,10 39,56 21:DRAW 86,10 86,56 21 
DRAW 37,7 52,7 21 

DRAW 72,7 88,7 21 

DRAW 65,10 75,10 21 

DRAW 81,10 88,10 21 

DRAW 52,7 52,9 21:DRAW 59,7 59,9 21 
DRAW 65,7 65,9 21:DRAW 73,7 72,9 21 
FILL 60,5 64,8 21 

DOT 42,10 21:DOT 62,9 21 

DRAW 64,9 64,12 71 

DOT 62,12 21:DOT 63,12 21 

REM KLEPPEN BEGINSTAND 

DRAW 46,4 46,11 22:DRAW 78,4 78,11 22 
DRAW 43,11 49,11 22:DRAW 75,11 81,11 22 
REM ZUIGER BEGINSTAND 

DRAW 40,15 85,15 22:DRAW 40,14 85,14 23 
FILL 41,15 40,22 22:FILL 85,15 94,22 22 
DOT 40,17 20:DOT 40,20 20:DOT 85,17 20:DOT 85,20 20 
REM DRIJFSTANG 

FILL 62,15 63,60 22 

REM #### WERKING VAN DE MOTOR #### 

REM INLAATSLAG 

PRINT CHR$ (12); " INLAATSLAG" 

DRAW 43,12 49,12 22:DRAW 43,11 49,11 23 
DOT 46,11 22:DOT 46,4 20 

GOSUB 1000 

REM COMPRESSIESLAG 

DRAW 43,11 49,11 22:DRAW 43,12 49,12 25:00Т 46,4 22 
PRINT CHR$ (12) ; "COMPRESSIESLAG" 

GOSUB 2000 

REM ARBEIDSLAG 

PRINT CHR$ (12) ; "ARBEIDSLAG" 

COLORG 0 8 15 10 

GOSUB 1000 

COLORG O 8 15 6 

DRAW 75,12 81,12 22:DRAW 75,11 81,11 23 
DOT 78,11 22:DOT 78,4 20 

PRINT CHR$ (12) 5 "UITLAATSLAG" 

GOSUB 2000 

DRAW 75,11 81,11 22:DRAW 75,12 81,12 25 
DOT 78,4 22 

GOTO 500 

РОКЕ #305, #58: РОКЕ #306, #B4 

POKE #308, #20: РОКЕ #309, #B4 

POKE #31C,#D2:POKE #31D, #FF 

FOR JZ=O TO 28:CALLM #300: NEXT : RETURN 
POKE #31C,46:POKE #31D,0 

POKE #305, #88: POKE #306, #AF 

POKE #308, #B6:POKE #309, #AF 

FOR J%=0 TO 28:CALLM #300: NEXT: RETURN 





ES 05 C5 F5 21 88 AF 11 Вв AF DS 06 26 OE OE iA 
77 2B 1B OD 79 B7 C2 OF 05 E1 ES 11 2E 00 19 SD 
54 ES 05 78 B7 C2 OD 03 Fi Е! Ci рі El C9 20 20 








КЕКЖЕЖЕЖЕЖЖИЖЖЕЖЖЖЕЖЖИЖЖЖЖЖИЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖЖ 


Í ж 
Ж COMBINATION OF MACHINE LANGUAGE AND BASIC Ж 
Ж === sxs mFH isxa = * 
* » — rules for standardization — Ж 
* | Ж 


ЖЖЖЖЖЖЖ ЖЖ ЖЖ RK KK AKA KKK ЖЖ ЖЖ RK RAKE KKK KK 


Several programs, written in Basic, require that some parts are 
written in machine language to obtain a higher execution speed. 
There are several ways to combine these two parts. The most common 
methods are: | 
- Keep them seperate. Before program execution, both routines 
must be loaded into the machine. I 
- Insert the ML program inta DATA statements. Via a READ command, 
the instructions will be moved into an array during pro- 
gram execution. 
The first method is not very useful when you just learned your 
kids how to load а simple Basic programs the second one needs a 
lot of typing with a high failure rate (although this can be overcome 
by using а data statement generator; but that requires more memory). 


In order to get a normalisation in this matter, the following 
procedure is proposed as a standard for combining Basic and ML into 
one program. 


Some standards are required: 
— The startaddress of the Heap will Баја be SO2EC (its 
default value)., 


— The ML routine starts always at #0200, | 
The length of the ML program is called МЦРЦЕМ (use hex-value!). 


The method of combining Basic and ML routines is based on the 

principle that the ML program is moved into the text buffer. 

When you save a Basic program, both textbuffer and symboltable 

contents are written on tape, so now the ML routine is saved too. 

After loading, the ML part must be moved back to its original location. 


The Basic program must contain the following lines at the very 
beginning of the program: 


1 FOKE #29R,#EC: FORE #2906, #02 Default start Heap 
2, CLEAR мими мими > МЦРЦЕМ 
$ MLPLEN=yy š yy = length ML program 
4 DO=INT (SOR (MLELEN/ 444) ) ) 
5 DIM MLF (QQ, 00) 
& STMLF= PEEK (#201) +PEEK (#242) X256- -MLFLEN-1 
.7 FOR 1=0 TO MLFLEN-1 
8 FOKE #100+1,РЕЕК (STMLF +I) 
9 NEXT 


These lines reserve by means of a dummy array memory space for 

the ML program. A 2-dimensional array is used to cope with ML programs 
of more than 1K. From line 7 onwards, the ML bytes are moved from 

the textbuffer into this area. This may last some time (FGT 8 secs). 
The ML routine can be called by Basic with CALLM #500. 


The procedure (to be used during program development) for moving the 
ML pragram into the textbuffer is as follows: 


Hard RESET 

Ж CLEAR xxx ммим > МЦРЦЕМ 
* UT 

A А М ркодкат 


“ 
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` рено ркан combination of ml & BASIC 
> D261 2A4 (2A2Z/1)=STREGN 
| (2A4/3) =STBUSE 
+ MCBA2/1). (2А4/5) CZA2/ 1) + М-Н -ЕМ+1 Shift symboltable 
> BUZA2/1) into (2602/1) -MLFLIZNA 1 Update STEEGN 
> S(204/3) into (274/35) ФМ LENA) Update STBUSE 
> М5ОО SOO-MLFLEN (2A2/1) 
> В 


k SAVE "Basic program incl. МІР" 


The CLEAR reserves space for the ML program. After loading both 
parts, the symboltable is moved ta make place for the МІР, Then the 
pointers for the symboltable are updated. Now the MLF is moved into 
the now free area after the textbuffer. After saving, the program 
now on tape contains both Basic and ML programs. It can be loaded, 
executed, updated, and listed (listing the MLF part produces 
rubbish of course). Editing is only allowed until the last Basic 
linenumber!! Editing the ML part destroys your pragram! tt! 


As an example, the transfer of FGT will be demonstrated. FGT is 
written on the memory locations #300-#900, but saved on tape with 
the Heap pointers: #298-#900, 


> R FGT (298-900) 


> W300 900 FGT (200-900) Save FGT only 

Hard RESET 

Ж CLEAR #700 MLFELEN=#600 

ж UT | 

> R ERT (300-900) 

> B v 

* LOAD "Basic program" 

* UT GC | Suppose you find: 

> 281 264 - STERGN = #126A 
STHUSE = #1325 

> Mi2ó6 1225 1868 ‚ #1868<#171684+#600+1 

> 5281 6A-6B 12-18 25-26 12-19 #1926=#1425+#600+1 

> М5ОО 900 126A 

+ Б 

k SAVE "Complete program" ы 


If the ML routine needs RAM-space for pointers, the area #2EE-#2FF 
can be used. If you need mare space, place them above the ML 
routine. This area must be alsa counted for MLFLEN! 


A final remark: This method is a proposal for standardization. 

You don't have to follow it. As lang as you only write programs 

to be used by yourself, nobody cares about any standard. * 
But if you intend to send your programs to DAInamic for the 
software library, to be used by other people, then certain rules 
are necessary. 5 

I don't know your opinion. But I hate programs that require the 
loading of seperate routines. I hate to find out after loading the 
routines that I should have moved the Heap before loading. I also 
hate all those different startaddresses of ML programs. I do 

like those programs which require only a simple LOAD command 

after the machine is switched on. And I am.sure you like that 

too! | 


Jan Boerrigter 


їн. 


РАБЕ 01 DAI INTERFACE МОРЕ 1 zearrez DAI interface module 








174 * IF FIRST CHAR IS INPUTTED ON RS232 DEVICE THEN 
175 Ж INSW IS SET TO 1. 
176 * NOTE THAT INSW IS ALSO USED FOR OTHER PURPOSES 
177 * IN DAI DOS AND МЕМОСОМ DCR SOFTWARE. 
178 x 
179 GETFRC EQU :D6BB FORCE 1 SCAN TO GET CHAR 
180 % ENTRY : INPUT SWITCH INSW SET TO о OR 1 
181 * FUNC : IDEM GETC, KNSCAN = O NOT NEEDED, BUT 
182 * GETFRC HAS POOR DEBOUNCING. 
185 X EXIT : AS GETC 
184 * 
185 DuTC EQU | :DD6O OUTPUT A CHAR 
186 X ENTRY : ASCI VALUE IN A 
187 * OTSW SET TO O, 1, 2 OR 5 
188 . € FUNC : OUTPUT CHAR TO DEVICE OR BUFFER AS 
189 х SPECIFIED IN OTSW 
190 ж EXIT : A, Е CORRUPTED 
191 * OTSW = O : CHAR ON SCREEN (AT CURSOR) 
192 * : AND TO RS232 
193 х OTSW = 1 : CHAR ON SCREEN ONLY 
194 x OTSW = 2 : CHAR APPENDED TO TEXT IN EDIT- 
195 1 BUFFER (DON’T USE, EDITBUFFER 
196 * POINTERS MUST ВЕ SET UP FIRST) 
197 x OTSW = 3 : CHAR SEND TO A ROUTINE VIA 
198 x A VECTOR ON DOUTC 
199 х (NORMALLY DO NOTHING, JUST RET 
200 * USED FOR DISK OPERATING SYSTEM) 
201 OTSW Ери :151 OUTPUT SWITCHING 
202 x 
203 OUTCPR EQU :D695 OUTPUT CHAR, PRESERVE PSW 
204 £ ENTRY : IDEM OUTC Pr. 
205 Ж FUNC : IDEM OUTC 
206 £ EXIT : IDEM OUTC, BUT А, F NOT CORRUPTED 
207 * 
208 CRLF EQU :DDSE OUTPUT A CARRIAGE RETURN 
209 | * ENTRY : IDEM OUTC, BUT CHAR IS FORCED TO 
210 x ASCI VALUE :D 
211 X FUNC : FOR CRLF IDEM DUT 
212 і * EXIT : IDEM OUTC 
213 * 
214 * 
215 COLO EQU | :DD55 OUTPUT CR IF CURX <> O 
216 % ENTRY : OTSW SET TO O, 1, 2 OR 5 
217 Ж FUNC : IF CURX <> О THEN OUTPUT CAR RET 
218 * EXIT = IDEM OUTC 
219 * 
220 * | 
221 * PART 3 : MESSAGE OUTPUT ROUTINES 
222 Ж ———— 
223 x 
224 PMSG EQU  :DAD4 PRINT A MESSAGE 
225 | * ENTRY : POINTER TO MESSAGE IN HL 
| 226 * FUNC : PRINT A MESSAGE, WHICH MAY INCLUDE 
| 227 * INTERNAL REFERENCES TO OTHER SUBMESS. 
I 228 З EXIT : POINTER AFTER STRING ІМ HL 
| 229 Ж MESSAGE FORMAT : 
222-250 % А SERIES OF BYTES : 
i 231 x о -> END OF STRING 
\ 232 x 1-:7F -» ASCI VALUE CHAR TO PRINT 
| 233 * >:80 -» BITS 0-15 ARE OFFSET FROM :C000 TO .. 
| 254 з IF ВІТ 14 = 1 THEN 
235 * .. TO A MESSAGE (CHARS TERMINATED 
236 * BY A O) 
237 * IF BIT 14 = O THEN 
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238 x .. TO à STRING (1 BYTE LENGTH 
239 | x i + CORRECT NUMBER OF CHAR) 

240 * REF : MESSAGES IN DAI ROM STARTING AT ADDR :DB6F 
241 x | AND POINTERS ТО ERROR MESSAGES АТ :ра94 

242 x : 

245 PMSGR EQU : DAFF PRINT A MESSAGE 

244 Ж ENTRY : POINTER TO MESSAGE IN THE 2 MEMORY LOCA- 
245 x TIONS AFTER THE CALL ТО PMSGR (LOW-HIGH) 
246 | ж FUNC : IDEM PMSG 

247 Ж EXIT : IDEM PMSG 

248 | x | 

249 PSTR EQU : DB32 PRINT A STRING 

250 · Ж ENTRY : POINTER TO STRING IN HL 

291 Ж FUNC =: PRINT A STRING 

292 Ж EXIT з HL POINTS AFTER STRING 

293 * STRING FORMAT : 

254 x 1 BYTE LENGTH ( O = NO рата ) 

255 x N BYTES DATA (ASCI VALUES) 

256 x 

257 PSTRM EQU :0844 PRINT A STRING 

208 * ENTRY : POINTER TO STRING IN HL i 
259 x LENGTH OF STRING IN A 

260 Ж FUNC : PRINT A STRING 

261 £ EXIT = HL POINTS AFTER STRING 

262 Ж FORMAT : 

265 * N BYTES DATA (ASCI VALUES) 

264 * 

265 x 

266 * PART 4 : GETTING INPUT AND ENCODE IT 

267 ` ------------------------------------ 

268 x | 

269 Ж NOTE : DAI BASIC USE A SPECIAL WAY TO HANDLE 

270 Ж INPUT OF COMMANDS, PROGRAM LINES AND 

271 * ? МРОТ” VALUES. 

272 * FIRST ALL INPUTTED KEYS ARE SEND TO THE 
275 x SCREEN (=TO THE CURRENT LINE). 

274 * THIS CONTINUES UNTIL A CARRIAGE RETURN IS 
275 x PRESSED. 

276 * NOW THE PROPER ROUTINE FETCHES THE 

277 x CHARACTERS BACK FROM THE SCREEN (=FROM THE 
278 x CURRENT LINE) TO COMPILE OR TRANSLATE THEM. 
279 * ADVANTAGE : NO NEED FOR A EXTRA INPUTBUFFER 
280 x TO STORE CHARACTERS ; CHAR DEL IS HANDLED . 
281 x BY THE SCREEN PACK. A CURRENT LINE MAY 
282 * HAVE 3 CONTINUATION LINES. ` — 

283 * ABOVE METHOD IS NOT USED IN PC UTILITY. | 
284 | 

285 INLINE EQU sDD1A GET CHARACTERS UNTIL CR 

286 x ee Ne ees Hee IN A | 
2в7 Ж FUNC IF CURX<>0 THEN PRINT CR (DO COLO) ) 
288 | x PRINT CHARACTER IN A | 
289 1 ENABLE FULL KEYBOARDSCAN (КМБСАМ- 20) 

290 * INPUT CHARACTERS FROM KEYBOARD OR RS232 
291 x ( REF ТО GETC FUNCTION › 

292 x IF CHAR = CAR RET THEN TERMINATE 

293 x IF BREAK PRESSED THEN TERMINATE 

294 * IF PRINTABLE ОК CHARDEL THEN SEND 

295 x CHARACTER TO SCREEN 

296 * INPUT NEXT CHARACTER 

297 $ EXIT : CY = 0 : VALID TERMINATE WITH CAR RET 

298 x REG С IS SET ТО 1 ( POSITION 

299 x FIRST INPUTTED CHARACTER ) ` 

300 * NOTE : NO CR IS OUTPUTTED TO 

501 | 4 THE SCREEN —> CURSOR AFTER 
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502 x END OF INPUTTED CHARACTERS 

303 x CY = 1 з: BREAK PRESSED 

304 x LINE IS TERMINATED WITH A ri: 
305 x CHARACTER AND А CAR RET 

306 x KNSCAN IS ALWAYS SET FOR SCAN BREAK ONLY 
307 ж NOTE : A CHAR IS PRINTABLE IF ASCI VAL >= :20 
308 | 4 

309 INLINX EQU :DDIF GET CHARACTERS, NO COLO 
310 Ж ENTRY = IDEM INLINE 

511 Ж РОМС : IDEM INLINE, BUT NO COLO PERFORMED АТ 
312 x BEGIN ( ALLOWS EG. XYZ> PROMPTING ) 

313. Ж EXIT : IDEM INLINE, BUT POSITION C-i NOT VALID 
314 k EXAMPLE OF USAGE : 

315 x LXI H,MS6* MESSAGE BEFORE INPUT 

316 x CALL PMSG 

317 x RST 5 GET CURSOR POSITION 

318 * DATA :0C X POS IN REG L 

319 x INR L INCREMENT FOR PROMPT 

320 x FUSH H | SAVE CURX 

321 * MVI A,” ” BLANK PROMPT 

322 x CALL INLINX 

323 x POP B GET CURX IN REG C 

324 x JC BREAK EXIT IF BREAK PRESSED 

325 x REM : READY TO USE ENCINP OR LOOKC 

326 x 

527 ЕМСТМР EQU : DDEO GET CHARACTER TO ENCODE 
328 % ENTRY : C : POSITION ON CURRENT LINE OF FIRST 
329 x CHAR TO INPUT (MAX 219) 

330 x EFSW = SOURCE FOR CHARACTERS 

351 x SOURCE : CURRENT SCREENLINE OR 

332 * STRING OR EDITBUFFER 

555 Ж FUNC : CHECK EFSW FOR SOURCE 

334 x = О : FETCH CHARACTER FROM CURRENT LINE 
559 x (=CURSOR LINE) OF SCREEN, A CAR RET 
336 x CHAR IS RETURNED IF AT OR PAST 
337 x LURSOR 

358 * = 1 : FETCH CHARACTER FROM STRING 

339 * = 2 : FETCH CHARACTER FROM EDITBUFFER 
340 x NOTE : FOR 1 AND 2 EFEPT (:132) AND EFECT 
341 * (2134) MUST ВЕ SET UP CORRECTLY, 
342 x THIS WILL BE DESCRIBED ANOTHER TIME 
345 * EXIT : CHARACTER IS RETURNED IN REG A 

344 x A CAR RET CHAR FLAGS END OF SOURCELINE, 
345 x ITION IN REG C IS NOT CHANGED, THIS 
346 x MUST BE DONE BY THE USER (REASON : SAME 
347 x POSITION MAY BE FETCHED MORE THAN ONCE) 
348 EFSW EQU :135 ENCODING INPUT SWITCH 

349 x 

350 IGNB EQU z DDD2 GET CHAR, IGNORE BLANKS 
351 k ENTRY = IDEM ENCINP 

352 * FUNC =: IDEM ENCINP, BUT SPACE AND TAB (ASCI :9) 
353 Ж ARE IGNORED (NOT RETURNED) 

354 Ж EXIT : IDEM ENCINP, BUT POSITION IN REG С MAY 
355 Ж | BE INCREMENTED IF SPACE(S) OR TAB(S) 

$56 x FOUND 

357 Ж 

358 LOOKC EQU : CA34 LOOKUP INFUT IN A TABLE 
359 * ENTRY : С : POSITION ON CURRENT LINE 

360 x HL : STARTADDRESS TABLE 

361 x E : (NUMBER OF CODEBYTES IN TABLE) - 1 
362 k FUNC : FETCH CHARACTERS VIA EFSW, STARTING AT 
363 x POSITION IN C 

364 x LEADING BLANKS OR TABS ARE IGNORED 

“365 X, MATCH A SEQUENCE OF SOURCE CHARACTERS 95 
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366 * WITH KEYWORDS IN THE TABLE 

367 x THE WHOLE TABLE IS SCANNED, RESULTBYTES 
368 x AFTER THE KEYWORDS ARE SKIPPED 

369 X EXIT : СУ = 1 : MATCHING KEYWORD FOUND 

370 x HL : POINTS TO BYTE AFTER KEYWORD 
371 * = FIRST RESULTBYTE 

372 * C = POSITION AFTER LAST CHAR OF 

373 x MATCHED SEQUENCE 

374 x & : LAST CHAR FETCHED FROM SCREEN 
375 x CY = O : NO MATCHING KEYWORD FOUND 

376 x C =: MAY BE CHANGED IF SPACE OR TABS 
377 x SKIPPED, IN EACH CASE POSITION 
378 x OF FIRST NON BLANK/TAB CHAR 

379 x HL : POINTS AFTER END OF TABLE 

380 x A : ZERO 

381 x 

382 * TABLE FORMAT : 

383 * A NUMBER OF RECORDS, EACH IN FORMAT : 

зва * 1 BYTE = LENGTH OF KEYWORD 

385 x N BYTES = KEYWORD IN ASCI | 

386 x M BYTES = RESULTBYTES, VECTOR TO ROUTINE 
387 x OR A CODEVALUE 

388 * NOTE = M MUST BE SAME FOR ALL RECORDS (M-1 IS 
389 x A INPUT (REG C) TO THE LOOKC FUNCTION) 
390 * END OF TABLE : DUMMY RECORD WITH LENGTH OF 

391 * KEYWORD = 0 

392 x 

393 Ж EXAMPLE : (SET REG Е TO 2) 

394 x DATA 3 

395 * ASC “рма” 

396 * DATA :BO CONTROL VALUE 

397 * DBL :1100 POINTER TO ROUTINE 

398 * DATA 7 

399 x ASC NOTHING’ 

400 * рата :ЕҒ 

401 x DBL  sFFFF 

402 * DATA O FLAGS END OF TABLE 

403 * 

404 * REF : BASIC COMMAND TABLE STARTING AT ROM ADDRESS 
405 x :CBBF, RESULTBYTES : 1 BYTE COMMANDCODE, 
406 x 2 BYTES VECTOR TO COMPILE ROUTINE 

407 * | 

408 0000 ЕМО 


Le 2 2 222222222 22222722322277 7 
3SYMBOL TABLE Ж 
XXXXXxxkkXnxXzxxxtkkxxxxxkxkxkk 


ADDA DESO ADDMI ` DES ALFA DEO2 ALFNUM DEO9 
COLO 0055 СОМРОЕ DE14 CRLF DDSE DELAY ОЕ41 
EFSW 0155 ENCINP DDEO FILL DE7C GETC D6BE 
GETFRC ревв IGNB DDD2 INLINE DDIA INLINX рріғ 
INSW 0296 KNSCAN O2B9 LOOKC САЗА MOVE DE4F 
MULA ПЕВЕ NEGHL DE26 NUMER DEOD OTSW 0131 
QUTC 0060 OUTCPR 0695 PMSG DAD4 PMSGR DAFF 
POPRET С140 PSTR 0852 PSTRM 0844 RSTART свос 
SUBDE  DE1A SUBDED D790 
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002 
003 
004 
005 
006 
007 
008 
009 
010 


0500 
0301 
0502 
0303 
0304 
0307 
O3O0A 
0500 
0310 


0315 
0315 
0318 
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214203 
CDD4DA 
212D04 
CDD4DA 
С59603 


SE40 
Сріаро 
DA1303 


1 2606PR82 


Las 2 2 2 1 2 2 2 2 2 22 2 1 sea aa 2 9 9 393 5 2 9 2 2 2 2 2 2 2 222 22222237 


x x 
* THIS DEMO SHOWS USE OF INFO DESCRIBED IN : ж 
ж DAI МАТН-РАСК (REF ТО DAINAMIC 82/1,PAGE 7) X 
x DAI КОМ INTERFACE (82/1,PAGE 14 AND 82/2) x 
x x 
* WITH COMMANDS ENTERED AFTER à SPECIAL PROMPT Ж 
x IT IS POSSIBLE ТО PERFORM SOME FUNCTIONS ON A x 
* 4 BYTE FLOATING POINT VALUE. x 
* AFTER EACH FUNCTION THE VALUE IS PRINTED IN x 
ж DECIMAL (FLOATING POINT) AND HEXADECIMAL FORMAT. Ж 
* THE VALUE IS STORED IN A RAM AREA OF 4 BYTES x 
Ж STARTING AT LABEL "NUMBER". * 
* | * 
LE 2 sa a 2 22 2 2 33 sa a 3 2 2 2 GGG 2 2 2 22 2 22222222 20222290277 
x 

Ұ ORG : Р. JONGEN AND Е. DE RAEDT 

x 

* INTERFACE WITH DAI ROM (REF DAI INTERFACE? : 
РОРКЕТ EQU :С140 POP REGS, RET 

LOOKC EQU z CASA LOOKUP CMD IN TABLE 

PMSG EQU : DAD4 PRINT A MESSAGE 

FSTR EQU z DB32 PRINT A STRING 

INLINE ЕВИ =:DDIA GET CHARACTERS UNTIL CR 

COLO EQU : 0055 OUTPUT CR IF CURX<>O 

CRLF EQU з DDSE OUTPUT CR 

IGNB EQu z DDD2 GET CHAR, IGN BLANKS 

NUMER EQU : DEOD CHECK о..9 


x 
х FOLLOWING ENTRYPOINTS FOR NUMBER INPUT/OUTPUT 
* ARE TAKEN FROM THE DAI MANUAL PAGE 126 : 


XFCB EQU :CO1E INPUT FPT 

XFBC ERU zCO21 CONVERT FPT 
XHBC EQU :Со2р CONV HEX- 

XPRTY EQU : C030 PRETTY UFP 

x 

* DECLARE LITERALS : 

FF EQU C FORMFEED 

CR EQU A CAR RET 

PRCH EQU z AO PROMPTCHARACTER 


x 

x 

* SET BEGIN OF PROGRAMCODE : 

ORG 2500 THIS ALSO ENTRY OF PROGRAM 
0Т>25>8500 OR *CALLM #300 

x 

* PART 1 : COMMAND HANDLER 

* 


ENTRY PUSH PSW SAVE ALL REGISTERS 
PUSH B ON STACK 
PUSH р 
PUSH H 
LXI Н,ТІТІ % РКІМТ ТІТІЕ 
CALL PMSG 
LXI H, HELPS PRINT MENU 
CALL PMSG 
JMP ZERO INIT NUMBER TO 0 


k CODE ENTERTED WITH PREVIOUS JUMP TRANSFERS CONTROL 
$ TO THE FOLLOWING LINE 


NEXT MVI A, РЕСН 
CALL INLINE GET CHAR UNTIL CAR RET 
Jc NEXT CANCEL LINE IF BREAK 


Ж INLINE RETURNS WITH С = 1 : POINTS TO FIRST 


k INPUTTED CHARACTER ON CURRENT LINE 97 


math-pack & rom-interface 


PAGE 02 ROM DEMO 1 26APRE2 
066 озав CDD2DD CALL IGNB ТЕ LINE HAS ONLY BLANKS 
067 ОЗІЄ FEOD CPI CR THEN NO VALID INPUT 
068 0320 CA1303 JEQ NEXT AND START AGAIN 
069 * NOW LOOK FOR A VALID COMMAND 

. 070 0323 216603 LXI  H,CMDTBL BEGIN OF COMMANDTABLE 
071 0326 1Е01 MVI X E,CMDLNG-1 LENGTH RESULT BYTES TABLE 
072 0328 CD34CA CALL  LOOKC LOOKUP CMD IN TABLE 
073 032B D23603 JNC SYNERR NO VALID COMMAND FOUND 
074 052Е SE MOV Е.М GET ROUTINE ADDR 
075 ОЗ2Е 23 INX H FROM TABLE 
076 0330 56 MOV D.M 
077 0331 EB XCHG AND TRANSFER CONTROL 
078 0332 Е9 PCHL TO THE ROUTINE 
079 * THIS IS A JUMP, NOT A CALL ; IF NO ERRORS OCCUR 
ово Ж THE ROUTINE SHOULD JUMP BACK TO "NEXT" 

081 * 

082 EXIT CMD : EXIT TO BASIC OR UTIL 
083 0333 C34DC1 JMP X РОРБЕТ RESTORE ALL REGISTERS 
084 * 

085 SYNERR ROUTINE HAS FOUND INVALID 
086 | SYNTAX IN COMMAND LINE 
087 0336 CDSSDD CALL COLO 

088 0339 2123DC LXI H,:DC23 MSG 'SYNTAX ERROR’ 

089 033C CDD4DA CALL PMSG 

090 O33F С51505 JMP NEXT 

091 * 

092 0342 ос TITL$ DATA FF 

093 0343 444540 ASC “DEMO ROM INTERFACE AND ” 

094 035A 4D4154 ASC — 'MATH PACK? 

095 0363 ODODOO DATA CR,CR,O 

096 * 

097 * TABLE FOR COMMAND LOOKUP : 

098 CMDLNG EQU 2 LENGTH OF RESULT FIELD 
099 0366 04 CMDTBL DATA 4 LENGTH OF COMMANDS 

100 0367 5445524Е АБС * ZERO? COMMANDS 

101 0568 8E03 DBL ZERO RESULT FIELD 

102 0560 03 DATA 3 | NEXT COMMAND ... 

105 O36E 414444 ASC ADD’ . 

104 0371 9205 DEL арр 

105 0373 04 DATA 4 

106 0374 45584954 ASC EXIT’ ES 

107 0378 3303 DBL EXIT 

108 037A 03 DATA 3 

109 037B 4E4547 ASC NEG’ 

110 037E ВВОЗ DBL NEG 

111 0380 03 DATA 3 

112 0381 535152 ASC “сок” 

115 0384 CDO3 DBL SOR 

114 0386 04 DATA 4 

115 0387 48454C50 ASC HELP” 

116 O38B 2404 DBL HELP 

117 озвр 00 DATA 0 FLAG END OF TABLE 

118 з 

119 ZERO CMD : ZERO OUT NUMBER 
120 ОЗВЕ CDD2DD CALL IGNE TEST OTHER CHARACTERS ON 
121 0391 FEOD CPI CR SAME LINE 

122 0393 C23603 JNE | SYNERR ERROR IF TRUE 

123 0396 AF ZEROL ZAR MAKE A O FPT VALUE 

124 0397 47 MOV в,л IN REGS A,B,C,D 

125 0398 4F MOV C,A 

126 0399 57 MOV D.A 

127 O39A E7 RST 4 SEND IT TO FPT ACC 

128 039B 12 | DATA :12 


129 0590 C3DFO3 JMP DONE DUMP RESULT 
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130 
131 
132 
135 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
165 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
isi 
182 
185 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 


059Е 
ОЗАг 
оза5 
ОЗАВ 
OSAB 
ОЗАЕ 
озво 


OSDF 
OSE? 
ОЗЕЗ 
ОЗЕ4 
ОЗЕ7 
озға 
ОЗЕР 
OSFO 
O3F2 
ОЗЕ5 
ОЗЕВ 


OSFB 
OSFE 
0401 
0404 
0407 
040A 


040D 
0418 
0419 
0425 


ROM DEMO 


CDD2DD 
CDODDE 
025605 
CD1ECO 
CDD2DD 
FEOD 
C23603 
218E05 
E7 

оо 
C3DFO3 


CDD2DD 
FEOD 


C3DFOS 


CDD2DD 
FEOD 


CS3DFO3 


218E05 


21Е500 
CD32DB 


211904 
CDD4DA 
сргрсо 
21E300 
с03208 
C31303 


56414С 


і 


ADD 


NEG 


SOR 


Мои x» % е ~ 


ONE 


VALS 


НЕХ$ 


26АРКВ ВО 


CALL 
CALL 
JNC 
CALL 
CALL 
CPI 
JNE 
ІХІ 
RST 
DATA 
JMP 


CALL 
CPI 
JNE 
LXI 
RST 
DATA 
RST 
DATA 
JMP 


CALL 
CPI 
JNE 
LXI 
RST 
DATA 
RST 
DATA 
JMP 


DUMP RESULT 
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:1B 
DONE 


IGNB 

CR 
SYNERR 
H, NUMBER 
4 

: OC 

4 

255 

DONE 


CMD : 


ADD INPUTTED VALUE 
IF CHARACTER AFTER CMD 
NOT NUMBER THEN 

SYNTAX ERROR 

INPUT FPT NUMBER TO ACC 
CHECK FOR ILLEGAL CHARS 
AFTER NUMBER 


POINTS TO NUMBER 

ADD NUMBER TO 

FPT ACC 

DUMP RESULT 

CMD : NEGATE NUMBER 
ERROR IF CHARS AFTER 
COMMAND 

POINTS ТО NUMBER 

FETCH NUMBER IN ЕРТ ACC 


CHANGE SIGN OF ЕРТ ACC 
DUMP RESULT 


CMD : SOR OF NUMBER 
ERROR IF CHARS AFTER 
COMMAND 

POINTS TO NUMBER 

FETCH NUMBER IN FPT ACC 


TAKE SQR OF ЕРТ ACC 
DUMP RESULT 


PUT RESULT IN NUMBER 
DISPLAY RESULT ІМ ЕРТ AND HEX FORMAT 
GOTO NEXT FOR NEW COMMAND 


LXI 
RST 
DATA 
CALL 
LXI 
CALL 
CALL 
MVI 
CALL 
LXI 
CALL 


LXI 
CALL 
CALL 
LXI 
CALL 
JMP 


ASC 
DATA 
ASC 
DATA 


H, NUMBER 
4 

: OF 
CRLF 
H, VALS 
PMSG 
ХЕВС 
Аа. ё 
XPRTY 
Н,:ЕЗ 
PSTR 


H, HEX 
PMSG 
XHBC 
H,:ES 
PSTR 
NEXT 


POINTS TO NUMBER 


TORE FPT ACC IN NUMBER 


EW LINE 
PRINT "DEC :” 
CONVERT ЕРТ FOR OUTPUT 
PRECISION 
PRETTY UP 


POINTS TO CONVERTED VALUE 
AND PRINT IT 

(FORMAT = LENGTH+CHARS) 
PRINT = "HEX : #' 


CONVERT TO HEX 
AND PRINT 


TIME FOR NEXT COMMAND 


"VALUE DEC :’ 


о 
К НЕХ 
о 


ж”. 
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194 * 

195 HELP CMD : PRINT MENU 

196 0424 212D04 LXI H, HELPS 

197 0427 CDD4DA CALL PMSG 

198 042A (31303 JMP NEXT 

199 x і 

200 042D OD HELPS DATA CR 2 

201 042Е 544849 ASC "THIS DEMO ALLOWS SOME MATHEMATIC” 
202 044Е 204655 ASC 7 FUNCTIONS ON A VALUE SAVED’ 
203 0469 OD DATA CR 

204 046A 494E20 ASC ІМ THE LOCATION NUMBER.” 

205 0481 OD DATA CR 

206 0482 414654 ASC "AFTER EACH FUNCTION THE VALUE " 
207 O4A0 495320 ASC 71S DISPLAYED IN FPT AND HEX ” 
208 O4BC OD DATA CR 

209 OABD 464F52 ASC 7 FORMAT. ” 

210 О4СА OD DATA CR 

211 0465 56414С ASC "VALID COMMANDS ARE :" 

212 O4D9 OD DATA CR 

213 04DA 20205A ASC * ZERO : RESET VALUE ТО 0" 

214 O4F3 OD DATA CR 

215 O4F4 202041 ASC ? ADD XXX.XX = ADD TO VALUE’ 
216 ОБОР 202850 ASC > (POSITIVE AND START WITH 0..9) ° 
217 052Е OD DATA CR 

218 052Е 20204E ASC ^ NEG =: CHANGE SIGN’ 

219 0545 OD DATA CR 

220 0544 202053 ASC > SOR : TAKE SOR? 

221 0555 oD DATA CR 

222 0556 202048 ASC > HELP : SHOW COMMANDS’ 

225 0560 OD рата CR 

224 0560 202045 ASC 7 EXIT : RETURN TO UT OR BASIC’ 
225 озвв 000000 DATA  CR,CR,O 

226 | 4 

227 x 

228 058E NUMBER RES 4,0 AREA FOR FPT NUMBER 
229 * 

230 0592 END 


3222232292 2 22 2222 2222222280 
*SYMBOL TABLE Ж 
KKKKRKKEKKERKKEKKERKEEREREK 


ADD O39F CMDLNG 0002 CMDTBL 0566 соко 0055 
CR ооор CRLF DDSE DONE OSDF ENTRY 0300 
EXIT 0555 FF 000С НЕСР 0424 HELPS 042D 
HE XS 0419 IGNB DDD2 INLINE DD1A LOOKC САЗА 
NEG OSBB NEXT 0313 NUMBER 058Е NUMER DEOD 
PMSG DAD4 POPRET C14D PRCH 0040 PSTR DB32 
SOR OSCD SYNERR 0336 TITL$ 0342 VALS 0400 
ХЕВС с021 ХЕСВ CO1E XHBC co2D XPRTY СОЗО 
ZERO ОЗВЕ ZERO1 0596 
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046A 
0470 
0480 
0490 
0460 
04B0 
о4со 
0400 


ода 
О4ЕО 
O4FO 
0500 
0510 
0520 
0330 
0540 
0550 


0556 
0560 
0570 
0580 


OSBE 
0590 


DB 


DA 
4c 
4D 
ДЕ 
ор 


cs 


са 
4c 
41 
4E 


13 


13 
4F 
54 
20 


56 


ор 
55 
43 
20 


20 
54 
oo 


41 


54 
20 


20 


5е 


20 
ДЕ 


AC 


48 
55 
46 
41 


45 
20 


TAPE 1980-1981 


0 GETALCONVERSIES DAlnanic 0-1 1980 
0 4 OP EEN RIJ DAlnanic 0-1 1980 
0 RAKETSPEL DAInaaic 0-1 1980 
0 PROPELLER DAlnasic 0-1 1980 
0 4 COLOR DEMO DAInamic 0-1 1980 
0 CITROEN B14 DAInaaic 0-1 1980 
0 BLOXY COLOR DEMO DAlnasic 01 1980 
0 MUSIC DAInamic 2 1980 
- 0 REAL-TIME KLOK DAInamic 2 1980 
0 DIGITAAL-ANALOOG KLOK DAInamic 2 1980 
0 FORMAAT LISTING DAInamic 2 1980 
0 LIST-PRINT DAlnamic 2 1980 
0 ZAKDOEK LEGGEN DAInasic 2 1980 
0 BLUE MOON DAInaaic 3 1981 
0 TUBELAR BELLS DAinaaic 3 1981 
0 RADAR-SIMULATIE DAInaaic 3 1981 
0 VIDEORAM IN MODE 0 DAlnasic 3 1981 
0 VIDEO TEXT DAInaaic 3 1981 
0 VARIABELEN ATLAS DAlnanic 1981 
0 BARRICADE DAInaaic 3 1981 
0 GEKLEURDE ACHTERGRONDEN IN MODE 0 DAlnamic 3 
0 KANTEN KLEEDJE DAlnanic 4 1981 
0 ALLE TEKENS DAInamic 4 1981 
0 PRIEMGETALLEN 110 S DAInaaic 4 1981 
0 ROTERENDE ELLIPSEN DAInamic 4 1981 
0 FILM TITLE SIMULATION DAInaaic 4 1981 
0 PADDELEN МЕТ FST DAlnasic 5 1981 
0 TIME OUT DAInamic 5 1981 
0 RESPONTIE TIJD DAInamic 5 1981 
0 REAL TIME CLOCK DAInaaic 5 1981 
0 RANDOM GENERATOR TEST DAInaaic 5 1981 
0 FASING KEYBORD MET BOOTSTRAP LOADER DAlnasic 5 
1FASING KEYBORD 
OFASING KEYBORD 
0 WILHELMUS DAInamic 6 1981 
0 TORENS VAN HANOI DAInamic 6 1981 
0 VIJFDE GRAADS POLYNOMEN DAlnamic 6 1981 
0 8080 SIMULATOR BOOTSTRAP LOADER DAInamic 7 1981 
{ML 8080 SIMULATOR 
OBASIC 8080 SIMULATOR 
0 BITRIJGENERAIUK ВАТ Пай! с 7 1981 
0 16 KLEUREN IN 4 KLEUREN MODE DAInamic 7 1981 
0 TALK EDITOR DAInamic 7 1981 
0 CIJFERTABEL DAInamic 7 1981 
0 CARPENTERS MYSTERY DAlnasic В 1981 
0 BASICODE МЕТ BOOTSTRAPLOADER DAInamic 8 1981 
1UTILITY BASICODE 2EE 527 
ODOCUMENTATIE BASICODE 
0 DIGITALE CLOCK DAInamic В 1981 
0 MEMORY-MAP MODE 4 DAlnanic 8 1981 
0 THE HAT DAInamic 8 1981 
0 POKE ACTION DAInaaic 8 1981 
0 LETTER DAInaaic B 1981 
0 SIENTJE DAInamic 8 1981 
0 DEMO DAInamic 8 1981 
0 TELEX IN BASIC DAInamic 8 1981 
0 KRAAN DAInaaic 8 1981 
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the story of anna list 





Little Anna List was e real character.DAInamic but a bit fixed in her 
ideas,she executed her daily routine withouk ever understanding its 
function or ever passing a remark.She lived in a software house,a multi- 
level structure comfortable but basic. At the back was a data field 
where she kept a pet ram tied up with a bit string. 
One day, an operator in Fort Ranfow noticed that Anna had not returned 
any data. He had nothing in his programma for that day, so he decided 
to give her a call. He took the DCE bus to Anna's address and was 
surprised to find the house surrounded by an array of bins fixed 
to the wall. The only entry point was an access port on the left. 
He entered and found Anna sitting at a symbol table just about to take 
a byte out of an apple. 

He addresses Anna, "What are all those bins?" 

"I like apples",she declared," and those are the core dumps." 

"T'm from Т.В.М. (Internal Buffer Maintenace)" the operator commen- 

ted,and continued "Why haven't you computed your data?" 

Anna displayed anguish."I can't read the code ",she sobbed, 

"I can only read ASCII and the formats are all in EBCDIC." 
The operator's response was unprintable,he сиг еа and cursed (he was 
а real cursor)."If data returned then okay else I shall compile а 
report" he ended. 
After this exit, anna decided to call her friend Pascal Bull. She called 
his linenumber and he told her to go to his address. Anna repeated what 
the I.B.M. man had said. 

"Don't worry," Pascal said "no need to poke around;I'll get my 

brother Franco to take a peek at the problem." 
The next day, Pascal gave Anna a conversion routine written by Franco 
Bull for translating EBCDIC into ASCII.Anna has compiled her data 
returns happily ever after. 


Barry Hunt 


102 





1050 
1060 


2015 
2016 


3010 
3020 


3040 
3050 
5060 
5070 
4000 
4010 
4020 
4050 
4040 
4050 
5000 
5100 
5110 
5200 
5210 
5220 
5500 
5510 
5520 
5550 
5540 
5550 


REM TESTBEELD V1.0 
REM ONTWERP А DOORNENBAL. testbeeld 
REM TEKENEN DUURT 2 MIN. 
CLEAR 300+1400 
GOSUB 1000:GOSUB 2000:60SUB z000:GOSUB 5000 
REM GOSUB 3000 WORDT GOSUB 4000 VOOR LEGE CIRKEL 
A$="TESTBEELD": X!=130. 0: У!=190. 0: DEV!=0.0:C'=0.0 
F'=1.0:GOSUB 40000 
ENVELOPE o 15,10;0,10;:SOUND O O 15 о 2000 
GOTO 999 
REM BEELD OPMAAK 
COLORG 8 15 15 15 
MODE S:POKE #BFFF,#B3:POKE #BFFB,#B2:POKE #BFF7,#B3:POKE #BFFS,#B3 
POKE #245, #AF:POKE #246, #54 
FOR X=#BFEF-256490 ТО #BFEF-288%90 STEP -2 
POKE X,#FF:POKE X-1,#80:NEXT X 
FOR X=#BFEF-25490 TO #BFEF-288490 STEP -90 
POKE Х, #АО:РОКЕ X-1,#40:NEXT X 
RETURN 
DATA BLOK 
REM WITTE BLOKKEN OM BEELD 
DIM BLOK(43.0):REM CLEAR 300 
RESTORE 
READ A$: IF A$<>"BLOK" THEN 2016 
FOR Х=0 ТО 43:READ BLOK(X):NEXT X 
FOR LIJN-O ТО 7:60SUB 2500:NEXT LIJN 

FOR LIJN=282 TO 288:GOSUB 2500:NEXT LIJN 
FOR LIJN=8 TO 280: A=#6F : B=#9F : C=#CO:D=#80 
IF ((LIJN-8)/21) MOD 2-1 THEN A=#90: B=#F8: С=#СО: ЕВЕ 
GOSUB 2600:NEXT LIJN:GOSUB 2600: RETURN 
Y=#BFEF-LIJN&90-2:FOR X-O TO 43 
POKE Y-2*X,BLOK(X) IXOR #FF:POKE Y-2XX-1,4F:NEXT X 
RETURN 

=#BFEF-LIIN*90-2:POKE Y,A:POKE Y-1,B 
POKE Y-86,C:POKE Y-87,D:RETURN 
DATA #80,0,1, #ЕЕ, #ЕЕ, #FO,O, 1, #FF, #FF, #FO, О 
DATA 1, #ЕЕ, REF, #ЕО,0,1, #ЕЕ, EE, SFO, О 
DATA 1, REF, #ҒЕ, #Ғ0,0,1,#ЕЕ, #FF,#F0,0 
DATA 1, REF, REF, #20, 0, 1, #ЕЕ, #FF, #20, 0 
DATA 0, #3F 

REM RUITEN TESTBEELD 
FOR LIJN-8 TO 281: Y=#BFEF-LIIN*90-—6 
FOR а=0 TO 7:РОКЕ Y-AX10,4FE:POKE У-аж10-1, #8F 
POKE У-А#10-6, #EF:POKE у-А#10-7,#ВЕ: МЕХТ А 
POKE Y-AX10,#FE:POKE У-АЖІО-1, #ВЕ: МЕХТ LIJN 
FOR LIJN-8 TO 281 STEP 2i:Y-4BFEF-9OXLIJN-2 
FOR А=0 TO 45:РОКЕ Y-AX2,4FF:POKE Y-AX2-1,#F8:NEXT A:NEXT LIJN 
RETURN 
REM CIRKEL 

X! ZXMAX/2.0-2. 0:D!=0.0:C!=0.0 
FOR А=0 TO 221:8!+20.0#698(221.ОЖА-АЖА) /21.0 

IF ABS(B!-C!)41.0 THEN NEXT A 

DRAW X!-C!,D! X!-B!,A 15:DRAW X!4C!,D! X!+B!,A 15 
C'-B!:D'-A:NEXT A: RETURN 
REM GEVULDE CIRKEL 
REM GEEL/ROOD BALK 

=0:B=16:C=14:G0SUB 5900:FILL 155,0 175,16 3 
REM WIT REFLECTIE BALK 
A=17:B=37:C=15:GOSUB 5900:FILL 115,17 215,37 0 
DRAW 135,17 135,37 15 
REM GRIJS GRADATIES 
AB=38: AC=58: GOSUB 5320: AB=164: AC=184:GOSUB 5520:60Т0 5400 
C=0:FOR X=AB TO AC:A=X:B=X:GOSUB 5900 
DRAW 185,X X'4B',X 15:NEXT X 

A=105:B=145:GOSUB 5950:FILL 145,AB 185,AC В 
A=185: В=225.0: БОБОВ 5950:RETURN 
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5400 
5410 
5420 
5430 
5440 
5450 
5460 
5500 
5510 
5520 
5530 
5540 
5600 
5610 
5620 
5630 
5700 
5710 


REM FREQUENTIE BALKEN testbeeld 
A-59:B-100:C-0:G0SUB 5900 
FOR X=85 TO 105 STEP 10:FILL X,59 X+4,100 15:NEXT 
FOR X=117 ТО 141 STEP 6:FILL Х,59 X+2,100 15:NEXT 
FOR X=149 ТО 177 STEP 4:FILL X,59 X+1,100 15: МЕХТ 
FOR Х=181 TO 208 STEP 3:FILL X,59 X+1,100 15:NEXT 
FOR X=213 TO 245 STEP 2:DRAW X,59 X,100 15:NEXT Х 
REM KLEUREN BALKEN 
C=14:FOR X=122 TO 163:A=X:B=X:GOSUB 5900 
DRAW 185,X X!+B!,X 1: МЕХТ X 
FILL 95,122 130,163 13:FILL 130,122 165,163 12 
FILL 165,122 200,163 11:FILL 200,122 235,163 3 
REM HET MIDDEN VAN DE CIRKEL 
FILL 155,79 175,142 0:A=101:B=111:C=0:GOSUB 5900 
DRAW X!-B!,111 X!+B!,111 15:B=121:GOSUB 5900:DRAW 165,79 165,142 15 
FOR X=75 ТО 275 STEP 20:DRAW X,101 Х,121 15:МЕХТ X 
REM ZWART REFLECTIE BALK і 
A=185: B=205:C=0:GOSUB 5900:FILL 115,185 215,205 15 
DRAW 135,185 135,205 0 
REM BOVENKANT CIRKEL & ROOD/GEEL BALK 
=206: B=221:C=3:GOSUB 5900:FILL 155,206 175,221 14 
RETURN 
X!=XMAX/2.0-2.0:FOR А-А TO B:B!=20.0%50R (221. 0%A-AXA) /21.0 
DRAW X!-B!,A X!+B!,A С: МЕХТ А: RETURN 
FOR Y=AB то AC:FOR X=A+Y MOD 2 ТО B+Y MOD 2 STEP 2 
DOT X,Y В:МЕХТ Х:МЕХТ Y:RETURN 
REM SLOW GRAF TEXT SGT 
REM ONTWERP А DOORNENBAL 
REM CLEAR 1400 
IF INIT!=1.0 THEN 40040:DIM CAR$ (90.0) 
RESTORE 
READ B$:IF B$<>"SGT" THEN 40012 
FOR Z!=32.0 TO 91.0:READ ВФ 
IF B$="STOP" THEN INIT!=1.0:GOTO 40040 
READ САКФ (2!) : МЕХТ: INIT!=1.0 
со!<с08 (DEV!) ЖЕ !:SI!=GIN (DEV!) ЖЕ ! i X! 2X! 40. Sz Y! zY! 40. 5 
FOR М!-0.0 TO LEN(A$)-1.0: GRS-CAR$ (ASC (HI Dé (AS,M!,1))) 
FÜR N!=0.0 TO LEN(GR$)-1.0 STEP 4.0 
IF MID$(GR$,N!,1)-"/" THEN X!-X'4CO'18.0:Y!-Y'*SI!£8.0:NEXT М!:Х!=Х!-0.5: У 


>< >< >< >< 


'=V¥!-0.5: RETURN 


40080 
40082 
40090 


JC1!=VAL (MIDS (GR$,N!,1))2JC2!=VAL (MIDS (GR$,N!+1,1)) 
JCS !=VAL (MIDS (GR$, М! +2, 1) ) : ЈС4! =VAL (MIDS (GR$, N! +5, 1)) 
DRAW X!'+JC1!*CO!-JC2Z!eSI!', У! +202! ЖС0! +ЈС1'! #51! Х!+ЈС05!200!—ЈС4!#51'!,У!+ЈС4 


"СО! +ЈС5! 45I! С! 


40095 
40999 
41000 
41001 
41002 
41005 
41004 
41005 
41006 
41007 
41008 
41009 
41010 
41011 
41012 
41015 
41014. 
41015 
41016 
41017 
41018 
41019 
41020 
41021 
41022 
41023 
41024 
41025 
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NEXT N! 

DATA SGT 

DATA BLANCO, /,UITROEP! ,31313337/, BOUTES, 25274547 / ,# 

DATA 1353155521274147/,%,124242532444152626563137/ 

DATA %, 17271626125641514252/, &, 121521515551155116275556/,’ 

DATA 3537/, (,131513311537/ 

DATA ),315353555537/, *, 125616523137/,+, 32361454/, COMMA, 21323233/ 
DATA —,1454/,.,31423241/,/,1256/,0,12162141525627471256/ 

DATA 1,214131372637/, 2, 115112334444555647271627/,3 

рата 122121415255545617574455/,4,414715551447/ 

DATA 5, 122121415254154515171757/, 6, 214112151444525315373757/,7 
DATA 212223561757/,8,2141244427471213151652535556/ 

DATA 9,115151555556245415162747/,:,55555555/,;,215252555555/,< 
DATA 14471441/ 

DATA =,13531555/, >, 21545427/, ?, 16272747343331313456/, APE, / 

DATA A, 11155155135315373755/,B, 111717471444114152535556/,C 

рата 12162747445621414152/,D, 1117114152561747/ 

DATA E,1117115114441757/,F,111714441757/,8,12162757215151535343/,H 
DATA 111714545157/ 

DATA 1,214131372747/,3,122121415257/,K,111713572451/,1,11171151/ 
DATA М, 11171735353435575751/,N, 111751571652/,0, 1216274756522141/,P 
DATA 1117144417475556/ 

DATA 0,12152747565321313351/,R,11171747565514442451/,8 

DATA 1221214152532444151627474756/, Т, 17573157/ 

DATA Ц, 111721415157/, V, 1317535713313153/,W, 1117515711 3333513334/, X 
DATA 111217165152575612561652/ 

DATA Y,16175657163434563134/,2,175712561151/ 

DATA STOP 





BESTE DAI VRIENDEN 


Naar aanleiding van enkele reacties op mijn bijdrage in 
DAI-namic jan/feb is gebleken dat enige uitleg over de 
getal -сопуегв е routines welkom zou zijn. 

Op deze tape is zowel uitleg over het gebruik van de ROM 
routines bij het omzetten van ASCII input naar de 
Math-accumulator als de omgekeerde bewerking opgenomen. 
Mogelijk vindt u een en ander geschikt voor publikatie in 
een volgende DAI-namic. Met behulp van deze routines hoeft 
de assembler programmeur geen uitstapjes meer te maken naar 
BASIC voor zijn output. 


Met vriendelijke groet, 
Peter Jongen 
Zeemanhof 25 
NL 2871JW SCHOONHOVEN 
tel. 01823-5170 


ASCII-BINARY-ASCII 


If you want to use ASCII input for your M.L.-programs the 
DAl-encoding routines can be verry usefull ta you. 
Following an explanation how to convert ASCII input to іп- 
ternal binary format. There are 3 calls: 


CALL :CO1E Floating point input to MATH. ACCUMULATOR 
: C024 Integer input to MATH ACC. 
: СОРА Hex input to MATH ACC. 


If you call one of these routines they will need the ASCII 
input characters one at a time. Therefore a CALL will be 
made to a routine whose address is in RAM loc :D2/:D3. 

This is the pointer to the DAI-input-routine for expresion 
encoding. You should supply a subroutine in your program 
that can put one (1) ASCII character in the A-reg on call. 
Store the address of your routine іп :D2 before calling the 
conversion routine. Š j 
Conversion will stop if any non numeric (0-9) character is 
entered. (exept for first: . E and — in case of FPT) 

The conversion-routine will add 1 for every character to 
the C-register. Register C is available on the call to your 
input routine. 


EXAMPLE: . 
£ INITIATE INPUT POINTER FOR EXPRESION ENCODING. 
LXI H, INFUT ADDR OF INPUT SUBR 


SHLD :D2 STORE IT IN POINTER 
* CONVERT ASCII INPUT TO MATH. ACC 
MVI с.о CLEAR CHAR COUNTER 
CALL :CO1E INPUT FPT NUMBER TO ACC 


On return the converted integer number 
is in the MATH-ACC. 


* INPUT SUBROUTINE. 


INPUT MOV а, С CHAR COUNT 

CPI 10 ALLOW ONLY 10 CHAR. 

ЧІ INRET RETURN WITH ILLEGAL CHAR TO STOP 
GETC CALL : SDBE GETC A CHARACTER 


JZ GETC WAIT FOR IT 105 
INRET RET і 


If you already have the ASCII-number in a string in mememory 


the input rautine could look like: 
ASCII-BINARY-ASCII 


INPUT PUSH H 
PUSH B 
LXI H, STRING GET FIRST ADDRES OF STRING 
MVI в,о ADD С (OFFSET) TO .. 
DAD B HL TO GET NEXT ASCI DIGIT 
MOV A,M GET THE DIGIT IN A 
POP B 
POP H 
Ë RET RETURN WITH IT IN A-REG 
STRING ASC 712. 345000’ SPACE TO STORE INPUT 
NEXT ASC ^8? ANY NON-NUM. TO STOP CONV. 


In above program conversion will stop if the 'S' is passed 

to the conversion routine. 

All register exept C preserved. 

Note: 

-The conversion routines will not recognize a leading "-" or 
74+? sign. For negative numbers use *RST 4 DATA :60 or :1B 
For ЕРТ input ’E’, "." and "-? far (пед-) ехропепЕ are 
allowed. (e.g. 1.254Е-5 ) 

~If you want to return to BASIC after M.L. programs using 
above, be sure to save and restore :D2/D3 


DAI-BINARY TO  ASCII 


Following a description how to use the DAI-ROM-routines 
to convert the result in the MATH-ACC to ASCII for output. 


On return from these CALL’s you will find a string of 
characters starting in mememory location :E4. 
For both INT and FPT the string will have following format: 


+.XXXXXXX or -.ХХХХХХХ X=ASCII numeric 


As you can see the number is always <1 AND >-1. 

The power of 10 to apply is stored at loc :Е1 in binary 
This string is not nice for output as it is. A second CALL 
is provided to pretty it up for printing. 


CALL :CO21 (XFBC) 


Convert FPT-number in MATH-ACC to ASCII-string. 
On return: : | 
String іп :E4 - - — - — — :ЕС 
Format +. XX X X X X X 
X=ASCII-numeric. 
String is always <1 and >-1 and 7 digits precision. 
The power of 10 to apply in :Fi. 


EXAMPLE: 
FPT 100.5 in ACC after conversion will look like: 
+. 1005000 :Е1=05 
CALL :СО27 (XIBC) 


Convert INT-number in MATH=ACC to ASCII-string. 
On return: 
String in :E4 and on, same format as above exept 
Number of digits is min 3 and max 10. 
EXAMPLE: 
INT 100 in ACC after conversion will look like: 
*.10000UUU :F1-03 
U=unchanged 
106 


CALL :C030 (XPRTY) ASCII-BINARY -ASCII 


Pretty-up FPT or INT string. 


Before CALLing load the A-reg with the number of digits 
for precision. (max 7) 
If you use this CALL for an INT number, load A-reg with 
contence of :F1 
ON RETURN: 
A nice printable string is in memory lokation 
SEA and on. The number of valid digits is in SES, 


CALL :CO2D (XHBC) 


Convert МАТН-АСС to ASCII-Hex for output. 


ON RETURN: 
String in :E4 — :EB (max 8 digits) 
The number of vallid digits іп :ЕЗ 
EXAMPLE = 
CALL : C027 CONVERT INTEGER FOR OUTPUT 
LDA :Е1 PRECISION 
CALL :СОЗО PRETTY IT UP 
LXI H, : Са START OF STRING 
LDA :C3 NUMBER OF DIGITS 
"МОм в,а 
PRLOOP MOV A.M GET CHARACTER 
CALL 20495 PRINT IT 
ІМХ H 
DCR B MORE CHARACTERS 
JNZ PRLOOP LOOP FOR PRINTING 
for FPT numbers in ACC first two lines will be: 
CALL :CO21 CONVERT FPT 
MVI А, :7 SET PRECSION 
GOOD LUCK 


Peter Jongen. Zeemanhof 25. 2871JW SCHOONHOVEN. 01823-5170 


electric energy 


100 REM ONTLADING ELECTRIC ENERGY +++ SMIT +++ 

150 MODE 6 

160 COLORG O O 5 O 

170 DRAW 50,50 100,100 21:DRAW 100,100 100,80 21:DRAW 100,80 150,130 21 
180 FILL 52,52 48,48 22:FILL 152,132 148,128 22 
200 FOR A=1.0 ТО RND(4.0) 

205 COLORG O 350 

210 SOUND 1 O 15 O FRE@(1200.0) 

220 SOUND OFF 

225 COLORG OO 50 

230 WAIT TIME ЕМО (6.0) 

240 NEXT 

250 GOTO 200 107 


= 
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001 
002 
003 
004 
005 
006 
007 
008 
009 
010 
O11 
012 
013 
014 
015 
016 
017 
018 
019 
020 
021 
022 
023 
024 
025 
026 
p27 
028 
029 
030 
031 
032 
033 
034 
035 
036 
037 
038 
039 
040 
041 
042 
043 
044 
045 
046 
047 
048 
049 
050 
051 
052 
053 


108 


0300 
0303 
0306 
0308 
0309 
озоа 
OSOB 
030C 


ОЗОР 
0312 
0315 
0318 
0319 
0312 
0510 
0520 
0321 
0524 
0326 
0529 
озгс 
0320 
052Е 
O32F 
0551 
0554 
0557 
0558 
0339 
O33A 
033D 
OSSE 
0340 
0343 
0346 
0347 
0348 
0349 
034A 
034B 
034Е 


210805 
015001 


C21803 
СЗОРОЗ 


x 


oscilloscope 


* OSCILLOSCOPE 
X LE SIGNAL EST ENTRE PAR LE PDL (O) 


x 

START ORG 

x START FROM 

у CLEAR TABLE 
LXI 
LXI 

CLEAR MVI 
INX 
DCX 
MOV 
ORA 
JNZ 


RESTAR LXI 


у 
OSCIL MOV 


MVI 
CALL. 
LDA 
POP 
POP 
POP 
STA 
MOV 
MV I 
STA 
CALL 
INX 
INX 
pcx 
MOV 
ORA 
JNZ 
JMP 


: 500 


BASIC WITH 


M, O 


DOPWI 
D 


L 


m 
> 
a 


, TABLE 


(А 
4 
с 


з +" ч w ч 
го зен mo 


UOD-«DbxDpxDpuou 
om“ о ка 


ошо 
О 
m 


>шоетоопгт< шоте"оътчн 


D 


с 
OSCIL 
RESTAR 


з 4 A A 


x 


MODE 6 :CALLM#300 


NOMBRE DE POINTS 


 COMPTEUR X 


ANCIEN X 


EFFACE | dnd POINT 


PDL (O) 
VALEUR DU PDL (O) 


NOUVELLE VALEUR DE Y 


ALLUME LE NOUVEAU POINT 
INCREMENTE LA TABLE 
INCREMENTE X 

DECREMENTE LE COMPTEUR X 


POINT SUIVANT 


es a a ООО: 
% SOUS-ROUTINE DE DESSIN D’UN POINT 


+++ #7294 + ЕЕ ЖЖ 


Ж PLACE MEMOIRE = #6644+ (YS#5A) - (X/4) IAND#7E (SE 
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054 
055 
056 
057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 

072 
075 
074 
075 
076 
077 
078 
079 
ово 
081 

082 
083 
084 
085 
084 
097 
088 
089 
090 
091 

092 
09:5 
094 
095 
096 
097 
098 


. 099 


100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 


0351 
0552 
0353 
0354 
0357 
035A 
9550 
0560 
0363 
0546 


0367 
ОЗ6а 
O36B 
OS6c 
O36F 
0570 
0571 
0374 
0575 
0576 
9577 


0374 
0570 
057Е 
O37F 
0381 
0382 
0383 
0386 
0387 
озва 
038D 
038E 
0391 
0392 
0395 
0596 
0398 
0599 
оз9а 
0398 
039C 
0390 
O39F 
03A0 
0385 
0345 
0346 
озав 
0349 
O3AA 
O3AB 
озас 
OSAF 
O3BO 
озвг 
0385 
0385 
озвв 
O3B9 
озва 


115400 
210000 


37 
SF 
iF 
D27003 


C36903 


114466 


DOT 


BCL2 


ВСІ 1 


CONTI 


LOPI 


FINPT 


ROT 


PUSH 
PUSH 
PUSH 
LDA 
STA 
LDA 
STA 
LDA 
LXI 
LXI 


STC 
CHC 
RAR 
JNC 
DAD 
ORA 
JZ 
XCHG 
DAD 
XCHG 
JMP 


LXI 
DAD 
PUSH 
ММІ 
STC 
CMC 
LDA 
RAR 
STA 
LDA 
RAR 
STA 
DCR 
JNZ 


· POP 


ANT 
MOV 
MOV 
SUB 
MOV 
MOV 
SBI 
MOV 
LDA 
ANI 
MOV 
MVI 
INR 
STC 
RAR 
DCR 
JNZ 
MOV 
XRI 
MOV 
MVI 
LDA 
MOV 
RAR 
MOV 


oscilloscope 


в 

D 

H 

X 

XAT 

X+1 
ХАТ+1 

У 

D,:5A 
H, : 0000 


BEL 1 


CONT 1 
H 
BEL 2 


D,:6644 
D 


B 
B,2 
XAT+1 


XAT+1 
XAT 


ьгшр 
ow м 


шош" x T = 


FINFT 
B. ñ 

: РЕ 
с.а 
р,:2 
COL 
Е, А 


Е, й 


Ж MULTIPLIE AXD>HL 


k PREMIERE PLACE MEMOIRE 6 
Ж HL-CYAT4S0) +#6644 


( 


$ X=X SHR 2 IAND #7Е 


* DANS HL: POSITION MEMOIRE 


* POSITION DU POINT 
з CARRY=1 


* DANS B MASQUE 00100000 


з DANS С MASQUE 11011111 
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117 ОЗВВ 7E MOV А, М 

118 O3BC DAC3O3 JC SET 

119 ОЗВЕ Al ANA С Ж EFFACE UN POINT 
120 ОЗСО C3C4035 JMP CONTI 

121 03035 BO SET ORA B ж DESSINE UN POINT 
122 ОЗСА 77 СОМТІ MOV M,A х DESSINE LE POINT EN МЕМ 
123 0565 7B MOV а, Е 

124 O3C6 23 INX H 

125 0307 15 DCR D 

126 O3C8 C2B903 JNZ ROT 

127 ОЗСВ Ei POP H 

128 озес р1 POP D 

129 OSCD Сі POP B 

130 O3CE C9 RET 

131 ОЗСЕ 0000 X DBL. z 0000 

132 0501 0000 У DBL : 0000 

155 O3D3 0000 XAT DBL S 0000 . Ж X POUR ROUTINE DOT 
134 0305 0000 YAT DBL : 0000 * Y POUR ROUTINE DOT 
155 0507 00 COL рата :00 

136 0508 0000 TABLE DBL : 0000 

137 FIN ORG TABLE+337 

138 0529 END 

еее КЕ ЖК AA AAA / 
*SYMBOL TABLE Ж 


УЖ ЖУК 


BCL 1 0370 BCL2 0369 CLEAR 0306 COL O3D7 
CONT1 037A CONTI O3C4 DOT 0551 FIN O3DA 
ЕТМРТ O3AA LOPI 0581 OSCIL 0318 RESTAR OSOF 
ROT OSB? SET O3C3 START 0000 TABLE 0508 
X OSCF XAT 0305 Y O3D1 хат O3DS 


5 КЕМ +++ MANDALA ....who is the author 7 +++ 
10 T=9.0:MODE &:COLORG 5 5 9 14 
30 GOSUB 400:MODE 4:GOSUB 400:MODE 2:GOSUB 400: БОТО 10 


35 END:REM ———— eee 
40 FOR SZ=0 TO 20 
41 L=RND (16. 0) : M-RND (16. 0) = N-RND (16.0) zÜ-RND (16.0) 


42 COLORG L MNO 
44 FOR А=0.0 ТО 700.0:K=GETC:IF K=0.0 THEN NEXT А 


50 IF K=32.0 THEN GOSUB 202 
55 IF K>0.0 AND K<>32.0 THEN GOSUB 200 

60 NEXT S%:RETURN 

90 REM ----------------------------------------------- 


200 L=9.0:M=L+1.0:N=L+3.0:0=L+2.0 

202 FOR X=0.0 TO 20.0 

205 COLORG L мм O:WAIT TIME Т 

210 COLORG O L М N:WAIT TIME Т mandala 

220 COLORG М Ü L M:WAIT TIME Т : 

225 COLORG М N Ü L:WAIT TIME Т: МЕХТ 

250 RETURN 

390 REM === 
400 =YMAX:E=D/2.0: F=E+0,. 5:6=F74.0:H=(YMAX+1. 0)/8. о 
470 у M=INT(HS4.0-1.0) :РОК X=0.0 ТО M: MDZ=INT(XHAX/Z: о) 
500 DRAW MD+X,O MD—-X,MX2 20+X MOD 4 

505 DRAW MD-X,0 MD+X,Mk2 20+X MOD A 

310 DRAW (MD—M) , мех MD-+M, М-Х 20+X MOD 4 

515 DRAW (MD-M) „M-X MD+M,M+X 20+X MOD 4 

520 NEXT X:GOSUB 40: RETURN 








16 COLOR CHARACTERS IN MODE O AND PICTURE STABILISATION MODIFICATION 


For these madifications you need: 
- В good soldering iron, preferably temperature controlled, around 408. 
A soldering pistol won't do because you damage both print and components. 
– A sharp knife. 
~ Some thin, isolated wire. 
- Some solder, pliers and cutters. 
- A resistor of 32K ( orange/orange/orange ). 
- ñ capacitor of inā polyester. 
- A silicium diode 1N4148 ог 1N914 ( the yellow bar is the cathode >). 


These modifications are to be made оп the main board rev.3, rev.4 or rev.5 only. 
Some soldering experience is a necessity. We are not responsible for damage on your 
machine because of bad soldering or improperly executing these modifications. 


There is one cut to be made on the solder side of the board. It is on the track coming 
from pin 1 of the 7415257 next to the 2МА154 to a plated through hole below this chip. 


Cut it next to the hole. 
Then solder 3 wires under the chip on the left of the former one. 4 
– From pin 3 to pin 10, 
- From pin 7 to pin 11. 
- From pin 9 to pin 1 of the first chip (where you cutted the track). 


2. Ficture stabilisation 


Again there is a cut to be made on the solder side of the board. It is on the big 
track underneath the ZNA1F4. Cut it between pin 15 and the plated through hole in 
the middle of the chip. 

The components are soldered on the parts side of the board. 

The capacitor is soldered from pin 12 of the 741504 above the ZNA134 to the plated 
through hole below the ZNA134 (the big hole on the right of the link). 

Both the resistor and the diode are soldered from pin і of the ZNA1Z4 to the hole 
mentioned before. The cathode of the diode must be on the bottom side of the board. 


Now you can turn on your machine again. The jumping of your picture must be gone now. 
A 16 color characters demo program is available. 

For further information please contact the club, they will give you my address or 
phone number. 

Good luck. 


№ 
iD 
N 
до 
al (0 
59 
( 


solder side | 


= back-side of ОАІ- рс > 








primzahlen 





10 REM PRIMZAHLEN VON 1 BIS 1024 IN 10 SEKUNDEN 
12 REM A. MEYSTRE , CH-4132 MUTTENZ / APRIL 81 
15 CLEAR (2000):DIM 5(255.0): 5-МАКРТК (5 (0.0) ) : БОТО 100 
20 M=1023.0:E=S+M: T=0:U=1: Z=2 
25 А=#1010101: В=#1010001: С=#10101: D=#101:P=0 | 
30 FOR Ісі ТО 17:5(Р)-С:5(Р+1) «В: 5 (Р+2) zB: 5 (Р+5) =С: S (P+4)=D: S (Р+5) =В: S (Ра) =A 
34 5 (Р-7) =D: S(P+8) =A: S(P+9) =0: S (P+10) =DE 5 {Р+11) =В: S (Р+12) -С:5(Р+14) -С:5(Р+14) 
$5 Р=Р+15: МЕХТ: 5 (255) =С 
40 PRINT CHR$(12),2,3,5,:A-844 
30 FOR N-7 ТО М STEP Z:A=AtZ: IF РЕЕК (А) < >т THEN NEXT:SOUND 1 O 15 O ЕВЕВ (750) 
:GOTO 100 
70 PRINT М,:ІҒ №52 THEN FOR I=A ТО Е STEP N+N:POKE I,U:NEXT 
90 NEXT 
100 WAIT TIME 20:SOUND OFF :WAIT TIME 200:GOTO 2200 
1000 REM GRAPHISCHE DARSTELLUNG DER PRIMZAHLENGENERIERUNG 
1010 REM A. MEYSTRE, CH-4132 MUTTENZ / FEB. 82 
1015 F1=0:F2=5:F3=8:F4=15 
1020 COLORG Fi F2 ҒЗ F4:MODE 2А: МОПЕ 2A:POKE #75, #20 
1024 PRINT СНЕФ (12) ; ТАВ (4) ; "GRAPHISCHE DARSTELLUNG DER PRIMZAHLENGENERIERUNG" 
1025 PRINT ТАВ(4);"МАЄН DER METHODE VON ERATOSTHENES (275-194 v.Chr.)" 
1076 PRINT ТАВ (24); СНКФ (#5F) ; CHRS (#5F) ; CHRS (#5F ) 5 CHR$ СИВЕ ) ; CHRS (#5F) 
1028 PRINT TAB(4);"SETZEN VON 2 BIS “3 CHRS (142); СНА$ (145);" 1024"; 
1029 PRINT TAB(385);"PRIMZAHL :"; 
1030 FILL 16,8 55,47 FS:FILL 20,12 51,43 F2:DOT 20,12 F1:DOT 24,12 Fi 
1040 FOR І-2.0 TO 32:J=1:GOSUB 2000: IF SCRN(X,Y)<>F2 THEN 1100 
1050 CURSOR 48,0:PRINT I; 
1060 FOR L=I+I TO 1023 STEP I:J=L:GOSUB 2000 
1065 IF SCRN(X,Y)=F2 AND I>3 THEN SOUND 1 O 15 O FRE@(750.0):DOT X,Y F4:WAIT TI 
ME 10 
1070 DOT X,Y F4:WAIT TIME SOR(I)+1.0:DOT X,Y F1:SDOUND OFF :МЕХТ 
1100 NEXT:GOTO 2200 
1110 К-бЕТС:МАІТ TIME 5:ІҒ K-O THEN 1110 
1120 IF К=А5С ("6") THEN 1000 
1125 IF K=ASC("Z") THEN 20 
1130 IF K=ASC("P") AND F430 THEN GOSUB 2100:GOTO 2200 
1135 IF K=ASC("P") AND F4=0 THEN PRINT :PRINT "ZUERST GRAPHIK ERSTELLEN !!!":60 
TO 1110 
1140 IF K-ASC("E") THEN POKE #75, #5F:END 
1150  БОТО 1110 
2000 X=J MOD 32: Y=d/32: X=X+20: YzY*12: RETURN 
2100 PRINT СНКЪ(12) ; ТАВ (25) ; "DIE PRIMZAHLEN" 
2150 FOR J=2 ТО 1023:GOSUB 2000: IF SCRN(X,Y)=Fi THEN NEXT: RETURN 
2140 CURSOR 28,1:PRINT J:DOT X,Y F4: INPUT Z$:IF Z$<>"" THEN 2200:DOT X,Y F2:NEX 
T:RETURN 
2200 PRINT СНА$ (12); "ТАЗТЕН-РУМКТТОМ: G = GRAPHISCHE DARSTELLUNG" 
2210 PRINT " Р = PRIMZAHLEN AUSGEBEN (VIA RETURN-TASTE) " 
2220 PRINT " Z = ALLE PRIMZAHLEN BIS 1021 IN 105" 
2230 PRINT * E = ENDE";:CURSOR 1,1 
2290 GOTO 1110 . 
kaleidoskop 
100 КЕМ KALE IDOSKOP A. MEYSTRE / DEZ. 81 
105 REM DERIVED FROM THE POPULAR APPLE II DEMO 
110 МОРЕ S:COLORG O O O Oz Y=YMAX/B 
120 FOR W-3 ТО 50: РОК 1=1 TO Y:FOR 2-0 TO Y 
130 K=I+J 
140 Се (185/(1+5)+1##й/12) MOD 24 
150 XI=1 84440: ХК-К 24440: ХМІ-УМАХ-І 84441: ХМК=ҮМАХ-КҰ4+41 
160 ҮІ=1#4: УК=КЖ4: YMI=YMAX—1 84415 УМК=УМАХ_КЖ4+1 
170 x13=1824+432 XK3=K44+43: XMIS=YMAX—1844442 XMK3=YMAX-K£4+44 
180 Ү15=1%4+5: УК5=К%4+5: УМІ З-УМАХ - 1 Х4+4: УМКЗ<УМАХ-К24+4 
190 FILL ХІ,ҮК ХІЗ,ҮК5 CsFILL XK,YI XKS,YIS С 
200 FILL ХМІ,УМК ХМІЗ, УМК C:FILL XMK,YMI XMKS,YMI3 C 
210 FILL XK,YMI XK3,YMI3 C:FILL XMI,YK ХМІЗ,УКЗ C 
220 FILL XI, УМК XIS,YMKS C:FILL XMK,YI XMKS,YIS С 
230 МЕХТ: МЕХТ: NEXT 
240 GOTO 120 
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Op 22 Mei j.l. werd in Eindhoven een scholen-sportdag gehouden, waarbij met 
groot succes een tweetal DAI-PC's werd ingezet. 

Er werd deelgenomen door twaalf zesde klassen van lagere scholen, waarbij 
jongens en meisjes elk een zestal individuele sportprestaties moesten leveren 
zoals 60 mtr hardlopen, kogelstoten, verspringen. 

Dus 24 groepen van gemiddeld vijftien kinderen. 

Vanuit het gemiddelde per groep werden punten voor die groep berekend met een 
omrekeningsformule per sport. Daarnaast werd in twee pools voetbal en kastie 
gespeeld. Ook van deze uitslagen werden punten toegekend, doelsaldi berekend 
etc. 


Een DAI 48K zorgde voor het berekenen van de punten, punten totalen, overzicht 
van verwerkte uitslagen, overzichten van de poolstanden, en natuurlijk meteen 
aan het einde van de dag voor elke school een totaal-lijst. 


schoolnamen en de bijbehorende tussenstanden, waarna een SAVE 

De tweede DAI stond met LOADA te wachten, zijn recorderingang was via een 
tussenversterkertje op de recorderuitgang van de eerste gekoppeld. 

Zodra de LOADA was ontvangen gaf deze PC de tussenstanden in kleur weer op een 
grootbeeld TV op het veld. 

En met het knipperlicht op de momenteel hoogste tussenstand. Dat bleef zo 
actief tot de volgende LOADA. 


Bovendien werd op geschikte momenten tijdens de dag een Sa met de 


Waar vorige jaren vier mensen bezig waren met rekenen en lijsten kon nu met 
twee mensen, een om de binnenkomende uitslagenlijsten op te lezen en een 
tikker, veel meer, veel sneller en met overzicht tussen de inputruns gewerkt 
worden. 


Bij het ontwikkelen van het programma bleek het rekenende gedeelte nauwelijks 
problemen te geven. 

Foutmeldingen tijdens de run, zowel vanuit het programma als door foutieve 
input, waren natuurlijk absoluut ontoelaatbaar. Het zal maar gebeuren dat in de 
loop van de middag, met 80% van de gegevens in het geheugen, een ERROR 

optreedt !! 

Aan beveiliging tegen inputfouten en een gedegen controle van het programma in 
alle mogelijke takken moest dus erg veel tijd besteed worden, en een 
regelmatige tussentijdse SAVEA van diverse arrays moest worden veilig gesteld. 


Een paar weken vooraf werden per school, per groep (jongens /meisjes),per sport 
ook de alfabetische naamlijsten (144) geprint. | 

Er namen in totaal 174 jongens еп 195 meisjes deel, zodat het nu ook de moeite 
waard is statistisch nog wat gegevens te berekenen. Gemiddelde, spreiding, 
hoogste prestatie individueel, en vooral of de toegepaste puntenberekening nog 
op de werkelijke prestaties klopt. | 


Mocht er belangstelling bestaan voor dit soort programma's dan zullen we ze 
graag aanbieden. 


Met vriendelijke groeten, 


Hans Vollinga . Ger Esselink 
Chopinlaan 44 ` Nederhoven 11 


5653 EW Eindhoven 5655 BR Eindhoven 














birthday song 


REM +++ BIRTHDAY SONG — Barry Hunt — 4/3/82 +++ 

REM +++ The name of the person whose birthday +++ 

REM +++ is being celebrated should be substituted +++ 
REM +++ for "CLAUDIE" (the name of ту wife) +++ 

КЕМ +++ in the third line of the song +++ 

REM +++ and the third DATA statement should be +++ 
REM +++ changed accordingly +++ 

PRINT CHRS(12):POKE #75, 52 

CURSOR 20,20:PRINT "BIRTHDAY SONG" 

CURSOR 20,19: РОК IZ=1 TO 14:PRINT CHR$ (11); : МЕХТ ТХ 
CURSOR 16,16:PRINT "Press any key to start." 
IF GETC=0.0 THEN 50 

CURSOR 16,16:PRINT " 
FOR IZ=š ТО 1 STEP —1 

CURSOR 25,16:PRINT IZzWAIT TIME 30 

NEXT ІХ 

MODE O:COLORT 8 О 8 12:PRINT СНЕЕ (12) 
ENVELOPE О 2,4;10, 6:15, 20; 12, 50: 8, 40: 4,50: 0 
REM ++ change text letter size 

FOR ADDRA=#BFEF TO #BCCB STEP —#86 

POKE ADDRZ, #4A 

NEXT АПОКХ 





PRINT 

PRINT " HAPPY BIRTHDAY TO YOU" 

PRINT “ HAPPY BIRTHDAY TO YOU" 

PRINT " HAPPY BIRTHDAY DEAR CLAUDIE" 
PRINT " HAPPY BIRTHDAY TO YOU" 


REM ++ set start of line and current position 
STARTZ=#BED2 : POSNZ-STARTZ 

FOR IX-1 ТО 28 

REM ++ read note frequncy, note length and (length of syllable — 1) 
READ NOTEZ,NLZ, CLX 

REM ++ Note of zero means new line 

IF NOTE%=0 THEN 380 

SOUND 00150 FREG(NOTEZ) 

SOUND 0080 FREG(NOTEZX2.0) 

SOUND 2 О 4 O FREG(NOTEZXX4.0) 

REM ++ change colour of syllable 

FOR ADDRZX-POSNZ TO (POSNZ-24CL%) STEP -2 
POKE ADDR%,#FF 

NEXT ADDR% 

WAIT TIME ВМ Z 

SOUND OFF 

REM ++ restore colour of syllable 

FOR АПОКХ-РОБМХ ТО (POSNZ-ZXCLZ) STEP -2 
POKE ADDRZ, #0 

NEXT ADDRZ 

REM ++ update current position 
POSNZ-PUSNZ-?2t*CLZ-2 

GOTO 400 

REM ++ new line 

WAIT TIME NLZX8 

STARTZ=STARTA—-#86: POSNA=START%A 

NEXT I7 


DATA 264,1,2,264,1,3,297,2,4,264,2,3, 352,2,3, 330,4,3,0,2,0 
DATA 264,1,2,264,1,3,297,2,4,264,2,3, 396, 2, 5, 3552, 4,3,0, 2,0 

рата 264,1,2,264,1, 3,528, 2,4, 440, 2, 3, 352, 2,5, 350, 2,4, 297, 2,2,0,0,0 
DATA 467,1,2,467, 1,3, 440, 2, 4, 352, 2, 3, 396, 2,3, 352, 4,3 


POKE #75,95 
RESTORE:GOTO 110 
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1520 
1540 
1990 
2000 
2020 
2040 
2060 
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CLEAR 200 lopende & staande golven 
COLORT 14000 
PRINT CHR (12) : PRINT 


PRINT " Staande GOLVEN ІІ — Natuurkunde ":PRINT 

PRINT " Roelants J.":PRINT : РКТМТ 

PRINT * Druk ор de SPACE BAR om het bewegend beeld te bevriezen." 
PRINT " Druk op де B-toets om een andere tijdvertraging “ 

PRINT 

EEZ=0 


DATA #Е5, #05, #05, #25, #11, #00, #10, HOE, #24 
DATA #06, #25, #D5, #CD, #00, #35, #56, ВЕР 
DATA #CD, #00, #35, #23, #34, ФЕР, #CD, #00, #35 
DATA #36, РЕ, #23, #36, #FF, #05, #02, KOC, #50 
REM TIJDVERTRAGING 

DATA #26, #FF, #2E, #80, #2D, #C2, #27, #30 
DATA #CD, #BB, #D4, #B7, #FE, #42, #CA, #58, #30, #FE, #20, SCA, #07, #55 | 
DATA #25, #C2, #25, #30 


REM | ==. А 





DATA #D1,#06, #25, #CD, #00, #35, #36, #00 =—— =—— 
рата #CD, #00, #55, #23, #34, #00 = = А 
DATA #CD, #00, #35, #36, #00, #05, #C2, #40, #30, #00 ee ee 
DATA #C2, #09, #50, #C3, #04, #50 E QM ER. 


REM BASIC 

DATA #01,#Е1,#01, #с1, REI, #с9,-1 
REM SUB ТЕКЕМ 

рата #1A, #6F, #13, #1A, #67, #13, #C9 





REM GETC | 
рата #со, #BB, #06, #87, #CA, #07, #35, #С5, #50, #30, —1 p tery cp p | 
X%=#3000 ee = era 
READ Ти: IF T%<>(-1) THEN POKE X%,T%:X%=X%+1:G0T0 802 — — =: 
XZ=#3500 = == 

READ TZ:IF TZ«»(-1) THEN POKE ХХ, ТХ: X%=X%+1:GOTO 806 

INPUT " ——» Tijdvertraging 1-255 "УЛ: РКТМТ 


IF VZX>255 ОК VZ<1 THEN GOTO 810 

POKE #3024,УХ:РОКЕ #5026, VZ 

INPUT " --» Berekening van de golven J/N"z3A$:PRINT 
IF A$-"J" GOTO 1000 

IF AS<>"J" THEN 1500 


PRINT " --> Eerste. maal steeds berekenen ":GOTO 900 

REM CREEER DATA 

INPUT " --» Aantal golflengten рег beeld 1...5 ";UsPRINT 

A=2. O*PI/36.0: FA=35: EE Zei 

PRINT СНЕФ (12) SPRINT "--> Even wachten om de golf te berekenen .":PRINT 
J4=#1000 


FOR TZ=O TO 55: РОВ X%=0 ТО 56 

Y1%=4285SIN ( (ПЕХХ- ТУ) ЖА) :УХ-У1Х+42:60508 2000 

үҮ27=42%51М ( (USXZ47T2H) XA) s YZ=Y24+42:GOSUB 2000 
Y4=170+Y1%+Y2%:G0OSUB 2000 

NEXT X%:CURSOR 30,2:PRINT " --» countdown "sFZ-TZs" #":NEXT TZ 
MODE 6:MODE 6 

COLORG O 5 10 15:REM TRY OTHER VALUES.. 

CALLM #3000 

GOTO 810 

END , 
арх=26098+2% (40-Х7) +¥4490 

LOZ=AD% IAND 255:HIX-ADX SHR 8 
POKE J%,LO%:POKE J%+1,HI%: J%=J%+2 
RETURN 





um EU ІН 2n Ins, uli 
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lopende & staande golven 


LOPENDE EN STAANDE GOLVEN 





Bespreking van het programma 


Het programma demonsteert de mogelijkheid om zeer snel 
een aantal opeenvolgende beelden op het scherm te plaatsen om 
zo een bewegend effect te bekomen . 
Daartoe worden vanuit een М.Т. programma rechtstreeks een aantal 
bytes in de video RAM (MODE6 – start 26098 ) geplaatst . 

Het BASIC programma berekent eerst de opeenvolgende beelden, 
en pookt de gevonden waarden weg in een tabel die start op 
adres :3000 en ongeveer :2000 bytes in beslag neemt . 


Het М.Т. programma is geplaatst vanaf :5000 tot :5071 еп kan 
via het 5 commando in UT. worden ingevoerd (SAVE via #5000 5071 ). 
Om te beweging te vertragen is er een tijdlus ingebouwd . 
De SPACE BAR werkt als aan-uit schakelaar om het beeld te bevriezen 
of verder te laten lopen . Door de B-toets in ter drukken keren 
we terug van de machinitaal subroutine naar het BASIC programma 
van waaruit we andere beelden kunnen berekenen of een andere tijds- 


vertraging kiezen . 


De berekening van de lopende golven gebeurt op de regelnummers 
1080 en 1100, de staande golf op 1120. 
Subroutine 2000 zorgt er telkens voor dat de coordinaten X96 еп Ү% 
worden omgerekend naar hun overeenstemmend adres AD% in de VIDEO RAM. 
AD% wordt nu opgesplitst in LO% en HI% en weggepookt op de adressen 
J% en J%+1 in de tabel . 


In totaal beschikken we hier over 36 beelden waarin drie figuren 


bestaande uit 37 bytes zijn. opgeslagen . 


Voeren we andere waarden in voor Х% en Y% dan zal er een andere 


reeks van beelden ontstaan . 


J. Roelants 


1440 
1480 
1500 
1520 
1540 


DCR tape control 


REM der Еаресоп го! 

REM ref. ward Deren wilfried hermans inno broekman 

CLEAR 5000: СОКОКТ 808: 

FRINT CHR$ (12): CURSOR 10, Т PRINT "DCR TAPECONTROL" 
WAIT TIME 40: PRINT CHR$ (12) ed 
PRINT СНКФ (12) : RESTORE . 
READ NZ:REñD P$: IF P*="###" GOTO 1220 

IF МУС10.0 THEN PRINT " „ir >> "EPH 

IF NA>9, 0 THEN PRINT NZ; " "РФ 

5070 112 

КЕМ Илл ГЕНЧЕ cursor 

FOKE 874,3:POKE #75, #20 

REM start keuze 

FOR XZ223 ТО © STEP -1 

CURSOR Е CHR$ (1) 

FOR Z%=1 TO 2 

IF ВЕТС< >) 6215 1480 

МЕХТ 7% 

CURSOR S,XZ:PRINT CHR$(32) 

NEXT XZ 

GOTO 1100 

CNZ=24,0-X% 

RESTORE 

FOR I=1.0 TO СМИ: КЕАр МУ: КЕАр PS 

IF P$="###" THEN, „PRINT СНАФ (12) : CURSOR O, 2: PRINT CHRS(1)3" MEMOCOM kent 


dit programma niet ! CHR$(1)sWAIT TIME 200: GOTO 1100 


1540 
1580 
1270 
1500 
1 660 
г: 
1670 
van 
2000 
2005 
2010 
2020 
2040 
2050 
2070 
2080 
3000 
3010 
2020 
5050 
3040 
5050 
5060 
5070 
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de band. ":CHR$(1):GOTD Séi 


ТЕ CNZ=X% THEN sofa 1100 

IF Рф=" gen rogramma" GOTO 1520 

deus tenes 2 THEN 6070 1670 

PRINT СНК (12): CURSOR О, 2: PRINT СНЕФ(1):" МЕМОСОМ is nu aan het zoeken naa 
"РФ", "s CHR$ (12 : GÜTO 2000 
PRINT EHRS (12): :CURSOR О о СНЕФ (1) 3" MEMOCOM draait пи naar het einde 
IF NZ-1.0 THEN GOTO’ 2050“ 

IF СМ/222 THEN GOTO 2060 

FOR ЕООРИ о TO NZ-2 

CALLM #F000:REM DCRO:SKIP1 

NEXT LOOPY 

LOAD 

ENLEM #FO00:REM ОСКО: ЗКТР9: ВКТР9: SKIPG 


DATA 1,"DAMMEN" 

DATA 2, " SCHAKEN” 

DATA 3, "ROTERENDE PYRAMIDE" 
DATA 4, "CURSORTERENEN" 
5, "BARRICADE" 

DATA Ри "VIER OP EEN RIJ" 
7,"RAKETSPEL " 

DATA 8; "TORENS VAN HANOI" 
A 9. "ACIGOL" 

DATA 16, "OME EREN" 

DATA 11, "роо НОЕ" 

DATA 127 "SKIPISTE" 

DATA 13, "BLACKJACK" 

DATA 14, "ANDROIDENSPEL" 
DATA 15, ,LANDMIJNEN" 
DATA 16, „geen programma" 
DATA 17, „geen. programma” 
DATA 18, "geen ргодгатта" 
рата 19, „geen programma" 
DATA 20, "бееп programma" 
DATA 2ү geen programma" 
DATA 22, "geen Ris anne 
DATA 22," naar bandeinde" 
DATA 24, "###" 


REM +++ PHONE RINGING +++ 

ENVELOPE О 10,2;15,2;14,4; 12,5;8,10;0 
ENVELOPE О 15, 10; о, 10; 15, 10; 0,10; О 
SOUND 0 1 15 0 FREQ (1000. о, 

SOUND O O 13 1 ЕВЕ (2000. 0) 

SOUND O O 15 2 ЕКЕС (5000. 0) 
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